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EDITORIAL 


THIS MONTH'S MAGAZINE 

Anyone who sets out to do much programming on their Electron will soon realise 
that the Basic Renumber command is quite limited. This month's utility, a must for 
all programmers, enables any part of a program to be renumbered, and it checks for 
any clashes, and any relevant references elsewhere in the program. 


Our continuing series on Electron graphics provides some more useful procedures, 
this time for colouring irregularly shaped areas. All the procedures in this series 
could form a very useful procedure library in the way we described last month. 


In December, we published a program called ASTAAD for computer aided design. We 
have now extended the features of this program to make it even more impressive. If 
you are at all interested in any form of computer graphics, then ASTAAD is well 
worth experimenting with. 


We have also picked out three more entertaining games for this issue, ranging 
from a computer version of 'Connect Four' through to another space game, ‘Lunar 
Escape', all good fun to play. 


ELECTRON GRAPHICS 

In last month's article in this series, the program called FILLSQUARE2 on page 7 
may have resulted in a little confusion. The usual headings for the program became 
separated from the program itself, and were printed below the accompanying 
illustration. Sharp-eyed readers will also have spotted the name BEEBUG rather than 
ELBUG - a slip of the mind on the part of your editor. You can just ignore these 
extra lines and use the program as correctly listed above the illustration. 


ADD-ONS FOR THE ELECTRON 

We have referred several times already to the so far disappointing development of 
the add-on market for Electron users. However, at the Micro User Show at the end of 
March, several manufacturers were demonstrating add-ons, some of which look very 
good indeed. We report on these developments elsewhere in this issue. At long last 
it does seem as though all those desirable extras are beginning to appear. 


Mike Williams 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOA 


MAGAZINE CASSETTE 

This month sees the launch of our magazine cassette service for ELBUG. Each month 
all the programs in ELBUG magazine will be available on cassette, starting with this 
issue. This will save all that wear and tear on the fingers. Cassettes for all 
previous issues of ELBUG (1 to 5) are also being produced, and all cassettes will be 
kept in stock. We expect all six cassettes to be ready for dispatch from mid May 
onwards. Future magazine cassettes will be ready at the time of publication. Full 
ordering details are on the back cover. 
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HUNT THE NUMBERS 


by K. Allen 


Hunt the Numbers is a fast, all-action game written specifically for 
the Electron. It incorporates coloured graphics in Mode 5 and at the 
fastest level is very quick and extremely challenging. 


Your man is a number-eating beasty, 
or a_ kind of number-cruncher, I 
suppose, whose world consists of a nice 
bright yellow square. Within this, by 
the magic of computers, ever increasing 
numbers keep appearing as temptation to 
your man to raise his calorific intake 
for the day. But as you move him to 
digest these numeric morsels, other 
nasty monsters will give chase all 
round the board with only the demise 
and consumption of your innocent 
glutton as their objective. These chaps 
are number-cruncher gulpers and they 
increase in quantity with your man's 
success. With higher levels of skill, 
selected at the beginning of the game, 
these aggressors become faster and more 
direct in their descent upon your 
ever-hungry number-cruncher which can 
result in a peculiarly loopy dance 
around the board's surface. 


i 


Controls to change the horizontal 
and vertical directions of movement are 
the 'Z','X', and '*' and '/' keys but 


it's important to note also that 
simultaneous use of a horizontal and a 
vertical control key will produce a 
diagonal motion, which is just as well 
because the 'nasty monsters' have no 
qualms about cutting corners’ when 
they're chasing you. 


HUNT THE HUMBERS #077 


The object of the game is to collect 
as many numbers as you can, avoiding the 
monster. Mhen you get to numbers you get 
@ 2nd monster and when you get 26 youll 
have three to avoid. 


2 for 
Xx for 
* for 
¢ for 


Please enter Skill level (1-4): 


1@ REM PROGRAM NHUNT 

28 REM VERSION E@.3 

36 REM AUTHOR K.ALLEN 

40 REM ELBUG MAY 1984 

58 REM PROGRAM SUBJECT TO COPYRIGHT 


108 CLEAR:MODE6 

118 ON ERROR GOTO 336 

120 PROCinfo 

130 man$=3:score$=-58:Q$=0 
146 MODE 5 

158 PROCsetup 

168 PROCnumbers 

178 REPEAT 

188 PROCmonster1] 

198 PROCman 

206 IF Q%>10:PROCmonster2:ELSE PROCde 


220 IF skill%>1:PROCmonsterl1:ELSE PRO 
Cdelay (16) 

238 PROCman 

248 IF skill%>2 PROCmonster] :PROGnan: 
IF Q%>1@0:PROCmonster2:ELSE PROCdelay (8) 

258 PROCman 

268 IF skill%>3 PROCmonsterl:IF Q%>10 
:PROCmonster2:ELSE PROCdelay (8) 

278 PROCman 

280 IF skill%<4:PROCdelay(8) 

298 IF Q%>28:PROQGnonster3 

300 UNTIL FALSE 

310 END 
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328 : 

336 ON ERROR OFF:MODE 6:IF ERR<>17 TH 
EN REPORT: PRINT "at line";ERL 

348 END 

350 : 

1686 DEFPROCman 

1618 IF Q%>2@8 AND (A=W AND B=Z) PROCde 
ad:GOTO 100 

1026 IF Q%>1@ AND (A=F AND B=G) PROCde 
ad:GOTO 100 

1036 IF (A=M AND B=N) PROCdead:GOTO10d 

1046 IF NOT(A=K% AND B=L%) THEN GOTO 1 
058 ELSE VDU 7:PROCnumbers 

1056 IF INKEY(-98) :A=A-3:IF A<5 A=5 

1066 IF INKEY(-67) :A=A+3:IF A>26:A=26 

1676 IF INKEY(-73) :B=B+4:IF B>31:B=31 

1088 IF INKEY(-105) :B=B-4:IF B<3:B=3 

1698 IF a=A AND b=B:GOTO 1130 

1108 *FX21,4 

111@ SOUND @,-15,4,3 

1126 GCOL G,2:MOVE 40*a,26*b:VDU 241 

1130 GCOL @,1:MOVE 40*A,26*B:VDU 241 

1146 a=A:b=B 

1158 ENDPROC 

1160 : 

1178 DEFPROCdelay (D%) 

1188 now=TIME:REPEAT UNTIL TIME>now+D% 

1198 ENDPROC 

1206 : 

1218 DEFPROCinfo 

1226 CLS 

1238 VDU 19,1,6;9; 

1248 PRINT TAB(4,3)"\\** HUNT THE NUMB 
ERS **//";TAB(3,4) STRINGS (28,"-") 

125@ PRINT TAB(2,7)"The object of the 
game is to collect as many numbers «s 
you can, avoiding themonster. When you 
get two digit numbers"'"you get a 2nd m 
onster and when you get"'"up to 26 you' 
1l have three to avoid." 

1266 PRINT TAB(14,14)"Z for LEFT" 

1278 PRINT TAB(14,15)"X for RIGHT" 

1286 PRINT TAB(14,16)"* for UP" 

1290 PRINT TAB(14,17)"/ for DOWN" 

1300 PRINT TAB(2,19)"Please enter Skil 
1 level (1-4):" 

131@ REPEAT:skill$=GETS:UNTIL INSTR("1 
234",skill$)>@ 

1326 skill%=VAL(skill1$) 

1336 PRINT TAB(33,19) ;skill% 

1348 PRINT TAB(5,22)"=>PRESS SPACE BAR 

TO START<="TAB(5,23) STRINGS (28,"--") 

1356 REPEAT UNTIL INKEY(-99) 

1368 ENDPROC 

1376 : 

1386 DEFPROCsetup 

1398 ENVELOPE 3,2,8,4,8,2,2,2,126,9,0, 
-126,126,126 


1486 A=5:B=3:a=5:b=3: £=26:F=26:g=31:G= 
31:N=7 :n=7:M=26 :m=26:W=5:w=5:Z=31:z=31: 
K3=0:L8=0 

1418 VDU 24,160; 16;1120;848; 

1426 VDU 23,240,102,153,153,255,129,16 
5,165,126 

1436 VDU 23,241,195,126,90,98,192,60,6 
6,195 

1446 VDU 5:VDU 18,8,13@:VDU 12 

1458 VDU 26:VDU 19,0,4;8;:VDU 4 

1468 VDU 19,2,3;8;:VDU 19,1,2;0; 

1476 VDU 19,3,1;8;:VDU 18,0,2 

1480 start=TRUE:start2=TRUE:start3=TRUE 

1498 COLOUR2 

1566 PRINT TAB(1,2);"*HUNT THE NUMBERS 
*">TAB(1,4) ;"SCORE:";TAB(15,4) ; 

1519 IF man%>1:COLOUR 1:FOR lives=2 TO 

man$:VDU 9,241:NEXT 

1526 VDU 5 

1538 GCOL G,3 

1540 FOR X=168 TO 112@ STEP 12@0:MOVE X 
,16:DRAW X,848:NEXT 

1556 FOR Y=16 TO 848 STEP 104:MOVE 160 
,Y¥:DRAW 1126,Y:NEXT 

156@ ENDPROC 

1576 : 

1588 DEFPROCmonster1 

1598 IF M=A:GOTO 1600 ELSE M=M+3* (-1-2 
* (M<A)) 2: IF M<5 M=5 ELSE IF M>26:M=26 

1600 IF N=B:GOTO 161@ ELSE N=N+4* (-1-2 
* (N<B)) : IF N<3 N=3 ELSE IF N>31:N=31 

1616 IF (M=F AND N=G) OR (M=W AND N=Z) 
: N=n:M=m: ENDPROC 

1628 GCOL 3,1 

1638 MOVE 40*m,26*n:VDU 240:IF start=T 
RUE:Start=FALSE:GOTO 1630 

1648 MOVE 40*M,26*N:VDU 24¢ 

1658 n=N:m=M 

1668 ENDPROC 

1678 : 

1688 DEFPROCmonster2 

1696 IF F=A:GOTO 1700 ELSE F=F+3* (-1-2 
*(F<A)):IF F<5S F=5 ELSE IF F>26:F=26 

1766 IF G=B:GOTO 1710 ELSE G=G+4* (-1-2 
* (G<B)) : IF G<3 G=3 ELSE IF G>31:G=31 

1710 IF (M=F AND N=G) OR (W=F AND Z=G) 
: G=g : F=f: ENDPROC 

1728 GCOL 3,1 

1736 MOVE 40*£,26*g:VDU 240:IF start2= 
TRUE:start2=FALSE:GOTO 1730 

1748 MOVE 40*F,26*G:VDU 240 

1758 f=F:g=G 

1768 ENDPROC 

1776 : 

1788 DEFPROCmonster3 

1798 IF W=A GOTO 1800 ELSE W=w+3* (-1-2 
* (W<A) ) : IF W<5 W=5 ELSE IF W>26:W=26 

1808 IF Z=B GOTO 181@ ELSE 2=2+4* (-1-2 
*(Z<B)):IF Z<3 Z=3 ELSE IF Z>31:2Z=31 
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1810 IF (W=F AND Z=G) OR (W=M AND Z=N) 
:W=w: Z=z: ENDPROC 

1826 GCOL 3,1 

1838 MOVE 40*w,26*z:VDU 24@:IF start3= 
TRUE:start3=FALSE:GOTO 1830 

1848 MOVE 40*W,26*Z:VDU 240 

1850 z=Z:w=W 

186@ ENDPROC 

1878 : 

1888 DEFPROCnumbers 

1898 MOVE 4@* (K$-14.7-(Q%>9) ) ,26*L%:GC 
OL @,2:PRINT Q% 

1988 k%=3*RND(7)+2:1%=4*RND(7)-1:IF k& 
=K% AND 1$=L%$:GOTO19@G:ELSE K%=k%:L3=1% 
1918 GCOL @,@:MOVE 40* (K$-14.7-(Q%>8) ) 
7 26*L%$:QS$=Q$+1:PRINT QS 

1928 S=score%:score%=scoret+58 

1938 GCOL 9,@:score$=INT (score) :MOVE 
64,896:PRINT S:MOVE 64,896:GCOL @,2:PRI 


NT score$ 

1948 ENDPROC 

1959 : 

1968 DEFPROCdead 

1978 SOUND 1,3,80,24 

1986 VDU 19,0,0;9;19,1,7;0; 

1998 TIME=@0:REPEAT UNTIL TIME=25G@ 

2000 man$=man%-1:IF man%>@ GCOL @,128: 
CLS : PROCSetup: 0%=Q%-1 : score$=score%-58: 
GOTO 166 

20198 VDU 4:PRINT TAB(2,18)SPC(21) "WOUL 
D YOU LIKE ";SPC(23) ;"ANOTHER GAME? (Y/N 
) "SPC (28) 

2020 *FX15 

2030 REPEAT KEYS=GETS:UNTIL INSTR ("YyN 
n", KEYS) >@ 

2040 IF KEYS="N" VDU22,6:END ELSE CLS: 
AGAIN=TRUE: ENDPROC 


POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 


LOCKED OUT 
Dear Sir, 

AS a newcomer to computing I have 
found ELBUG of great value. However, I 
have come across something that puzzles 
me and that is the message 'LOCKED' 
when loading programs (including the 
Welcome tape - TURTLE), but I have not 
found this in the User Guide. This only 
happens occasionally and I _ would 
appreciate your advice. 

J.S.Webster 
Reply: 

This is a feature of cassette files 
that is not described in the User 
Guide. Machine code programs can be 
saved on tape in a 'LOCKED' form so 
that they may only be *RUN and not be 
*LOADed. This is used by some software 
producers aS a means of protecting 
their copyright software. It involves 
setting just a single bit in the first 
block of such a program. Trying to 
*LOAD a locked program will produce the 
"LOCKED' message. 

Should any other program be poorly 
recorded, or not otherwise load 
correctly, the error can sometimes 
appear to the micro as though you are 
trying to load a locked file, to which 
it responds with the message 'LOCKED'. 
The fact that it only happens 
occasionally confirms this. If the file 
really was locked then you would get 
this message every time you tried to 
load that program. In this case it 
seems that either your Welcome tape is 


a poor recording, or your cassette 
recorder is not providing a good signal 
for the micro. 


THE MISSING LINK 
Dear Sir, 

Am I missing out? I enclose two 
photographs of the Electron circuit 
board, one from a magazine review and 
one of my own Electron. The thing that 
is puzzling me are the two blank spaces 
on my board labelled IC17 and IC18. 

I would be pleased if you could 
enlighten me on the missing 'bits'. 

Robert Hamilton 
Reply: 

Paul Hulyer is another sharp-eyed 
reader who has spotted this difference. 
Nothing is effectively missing from 
anyone's Electron. Early examples of 
the Electron, sent out to magazines, 
including ELBUG, for review contained 
Basic and the Operating System as two 
separate 16K chips (IC18 and IC2 to its 
right). IC]17 was needed for the micro 
to operate in this way. In the majority 
of production models of the Electron, 
the Operating System and Basic are both 
contained within the same 32K chip at 
IC2, and the chips at the other two 
locations are now quite redundant. 
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EXTENDING ASTAAD 


by David A. Fell 


In the December 1983 issue of ELBUG we presented an excellent 
program for computer aided design. We said then that the program 
could be easily extended, and now we have done just that, to provide 


even more features. 


In the original version of ASTAAD, 
published in ELBUG issue 2, we showed 
how to extend the program in order to 
save screens to cassette and how to 
load them from cassette. We also 
suggested further enhancements to the 
graphics facilities of the program. 


This month, we describe how to add 
three important new features to improve 
further the capabilities of this 
already impressive package. The 
features added are : 


1. The ability to include 
user-defined characters in 
"ASTAAD' text and display them 
at ‘any size, any angle, 
anywhere on the drawing’. 


2. The facility to draw ‘'filled' 
circles and polygons as well 
as outlines only. 


3. The facility to reverse 
foreground and background 
colours and thus include ‘white 
on black' and 'black on white’ 
text and diagrams in the same 
drawing. 


a, 
S 


; 
i 
E 
: 


0123-56759 


Filled-in 


All the new features are dealt with 
by control keys rather than function 
keys as follows. 


Ctrl-C Toggle user-defined characters. 


Ctrl-F Toggle filled/unfilled polygons 
and circles. 


Ctrl-T Toggle reversal of foreground 
and background colours. 


To use a control key, press the key 
marked 'CTRL' and the appropriate 
letter key together. Each time one of 
these control keys is pressed (or 
toggled), it changes the state of the 
feature selected (from 'on' to ‘off', 
or from 'off' to 'on'). 


USER DEFINED CHARACTERS 

'ASTAAD' is also the name given to 
the routine brought into action by 
pressing Func-f£@. ASTAAD stands for Any 
Size Text printed at Any Angle on the 
Drawing. This facility, however, was 
limited, in the original version, to 


the normal keyboard characters. An 
extension has been provided to allow 
for the soft (or user defined) 
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characters to be used instead. This 
allows for new characters to be 
designed, and then also drawn at any 
angle, and at any size. 


The choice of characters is 
controlled by Ctrl-C. With this in the 
‘off' state, as it is when you run the 
Program for the first time, ASTAAD 
behaves as it did in the old version of 
the program. When in the '‘on' state 
(selected by pressing Ctrl-C), user 
defined characters are taken from the 
keyboard with '‘A' selecting character 
224, 'B' selecting character 225 and so 
on. The characters are displayed at the 
top of the screen as selected. This 
allows for the new string to be seen as 
it's being built up. The user defined 
characters must be set up before 
running the extended version of ASTAAD 
(ASTAAD2) with the VDU23 statement (see 
User Guide pages 93 and 109). If you 
have already been running ASTAAD2, you 
may exit from this by pressing Break 
and typing in OLD and Return. You may 
now use VDU23 to re-define characters 
before running ASTAAD2 again, without 
the need to reload the program from 
cassette. The character definer on the 
ELBUG introductory cassette is also an 
ideal way to design characters that you 
may like to use in ASTAAD2. 


As an example, try typing the 
following into your Electron: 


VDU23,224,6,255,191,159,159,145,17,17 


Now load and run ASTAAD2, amd press 
"Ctrl-C". 

Press 'Func-f@' for ASTAAD text. 

Press 'A' and Return. 

Enter a size, say 20, and Return. 

Enter an angle, say 14, and Return. 


Now watch a primitive elephant being 
displayed. This illustrates that the 
soft character is now being read from 
the memory definition. 


FILLED POLYGONS AND CIRCLES 

Another new feature, controlled by 
Ctrl-F, is the in-filling of polygons 
(and thus also circles, as they are 
drawn using the polygon routine). 
Normally, when a polygon is drawn in 
ASTAAD, it appears only as an outline, 
but ASTAAD2 allows for either an 
outline, or a solid polygon to be 


ASTAAD 


Graphics Design 
Program 


drawn. The selection between the two is 
made by pressing Ctrl-F. Initially, in 
ASTAAD2, ‘in-fill' is turned off. This 
means that only the polygon's outline 
will be drawn. If Ctrl-F is now 
pressed, then the switch will be 
altered, and the next polygon to be 
drawn will be a solid one. The next 
time the Func-f3 option is used to 
repeat the last polygon drawn, then 
whether or not the polygon is filled in 
is dependent on the current state of 
the ‘'in-fill' switch, and not the state 
of the switch when the initial polygon 
was drawn. This feature also applies to 
the circle drawing routine selected by 
Func-f9. 


REVERSING FOREGROUND AND BACKGROUND 
When drawing lines, filling in 
polygons, or any other ASTAAD function, 
the foreground colour is normally 
black, and the background colour white 
(readers may like trying yellow on blue 
as opposed to black on white by 
including an appropriate VDUI9 at the 
start of the program - see the User 
Guide page 107). There is a final 
switch in ASTAAD2 that affects the 
drawing colours. To alter this switch, 
press Ctrl-T. In the 'on' state, just 
as when the program is first run, the 
drawing will normally be made in black 
on a white background. In the 'off' 
state, the drawing will take place in 
the reverse colours. This allows for 
the ‘blank out an area' function, 
invoked by Func-f8, to fill in a 
rectangular area. Examples of the use 
of the various functions, including 
reverse colour, are shown in the 
illustrations with this article. 


EXTENDING THE ASTAAD PROGRAM 

The additions to the original ASTAAD 
program are listed below. They should 
be typed into the computer AFTER 
loading in the original ASTAAD, which 
must not have been renumbered in any 
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way, since some of the new _ lines 
replace lines from the earlier version. 
Alternatively, save the new section 
separately using *SPOOL after typing it 
in, and then use *EXEC to append this 
to the original ASTAAD (see the article 
on Procedures and Functions in ELBUG 
issue 5 for more information on the use 
of *SPOOL and *EXEC or consult the User 
Guide, page 200). 


We have also included the correct 
version of line 358 (printed wrongly in 
the original version) and we suggest 
the deletion of line 158 if you do not 
want the audible 'beeping' 
original program. 


of the 


19 REM Program EXTEND to ASTAAD 

28 REM Version E1.3 

38 REM Author Jim Tonge 

40 REM ELBUG May 1984 

5@ REM Program subject to copyright 
60 : 

61 E%=6:Z$=-1:FS=G 

80 ON ERROR:VDU 12,5,26:GOTO 1146 

131 IF key=6 E%=NOTE%3:GOTO12@ 

132 IF key=3 PROCcharacters:GOTO120 

133 IF key=28 PROCcolours:GOTO120 

356 VDU23,1,0;0;0;0; 

520 VDU4,28,6,1,59,1:TS=FNread: INPUT" 
Size? (2 to 125): "S%,"Angle(deg.) ?"T% 
:CLS:VDU5, 26 

550 IF F% PROCread ELSE A%=&BF@G+ASC ( 
MIDS (TS,C%,1)) *8 


895 IF G%=9 THEN ENDPROC 

916 LOCAL I%,K%,M%,N,C,S,B,D,R,T,Y 

911 IF E% Y=85 ELSE Y=5 

960 IF I%>] THEN PLOT Y,K%,M% ELSE MO 
VE X%,Y$:MOVE K%,M% 

961 IF I$>1 AND E% PLOT85,X%,Y% 

971 IF E% PLOT85,X%$,Y% 

114@ IF ERR<>17 THEN ON ERROR OFF:MODE 
6:REPORT: PRINT" at line ";ERL:END 

1995 : 

2006 DEF PROCcharacters 

2310 IF F%=0 THEN F%=159 ELSE F%=0 
2620 ENDPROC 

2636 : 

2048 DEF PROCcolours 

2056 Z%=NOT 2% 

20608 IF Z% GCOLG,128:GCOLG,1 

2070 IF NOT 2% THEN GCOLG,@:GCOLG,129 
2086 ENDPROC 

2698 : 

2100 DEF PROCread: LOCALX$, Y% 

2110 Y%=&B: ?&BGG=ASC (MIDS (TS,C%,1)) +F% 
2120 A%=10:CALL&FFF1 

2130 AS=&BG1 

2148 ENDPROC 

2150 : 

2160 DEF FNread:PRINT''"Text? ";:TS="" 
2176 LOCAL I%:REPEAT I%=GET 

2180 IF I$=21 THEN PRINT STRINGS (LEN(T 
$) ,CHRS (127)) ;:TS=""s13=6 

2196 IF I%=127 AND LEN(TS) THEN VDU I% 
:1%$=@0:TS=LEFTS (TS,LENTS-1) ELSE IF I%=1 
27 THEN VDU7:13=0 

2200 IF I$ AND I%$<>13 THEN TS=TS+CHRSI 
$:VDU IS+F% 

2210 UNTIL I$=13:CLS 
2226 =TS 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


CHANGING THE FLASH RATES 


The rate at which the flashing colours flash, can be changed using *FX9,m and 


*FX18,S where m and s are described below. 


*FX9,@ forces the first named colour to show continually. 

*FX9,m sets the duration for the first colour, with m in 5@ths of a second 
*FX10,@ forces the second named colour to show continually. 

*FX1@,s sets the duration for the second named colour, with s in 5@ths of a 


second. 


Initially the values of m and s are 25. 


STEPPING THROUGH LISTINGS | - ‘Ss. WARD 


To step through a listing, without it scrolling, enter the following command in 


immediate mode: 
VDU 14 <return> 


Every time you list the program, the computer will list a page at a time. To get the 
next page, press Shift. A similar effect can be obtained by holding down the Control 
key (marked 'CTRL', and just to the left of the 'A' key) and pressing 'N' (Ctrl-N). 
The effect can be stopped by entering VDU 15 or pressing Ctrl-O. Listings can also 
be temporarily halted by pressing Ctrl and Shift together. 
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INVISIBLE ALARM 


by Gordon Weston 


How many times have you sat up all 
night long programming your Electron, 
when you set out to finish in five 
minutes? We present here a_ short 
routine which will sound an alarm after 
any preset period of time, up to a year 
ahead if you wish! 


The alarm program will sit invisibly 
in your machine and produce a beep 
after a predefined delay. This can be 
anything from a fraction of a second to 
several hundred years (though this has 
not been fully tested yet!). The alarm 
is not affected by running Basic or 
machine code programs providing the 
memory used by this routine is not 
overwritten or Break is pressed. 


When you run the program it asks for 
the time delay in seconds. Type in the 
required delay, and then carry on with 
whatever you want to. When the period 
of time is up, your Electron will sound 
an alarm. Unfortunately, we have not 
been able to provide a 'snooze' button. 


TECHNICAL NOTES 

The alarm routine has to be in 
machine code so that it can be set up 
in an area of memory not used by Basic. 
In this way you can be using Basic 
without in any way affecting the alarm 
set. Memory from address &7@ (in hex) 
up to &8F is reserved for routines like 
this. Take care when typing in the 
program, and remember to save a copy 
before running it. 


The program uses a timer which is 
set initially to a negative value (the 
number of centi-seconds before the 
alarm is to sound). Your micro has a 
built in 'clock' which will keep on 
increasing the timer until it reaches 
zero, at which time the alarm routine 
is called. 


The time delay is set as 5 bytes in 
lines 159 and 166. The counter scans 
upwards from the negative value given 
to zero. 


Lines 138 and 148 set up a control 
block in memory (&7@ TO &77) which 
defines the sound parameters to be used 
when the time limit has been reached. 
Lines 178 and 188 then point to &@07D 
in memory, where the machine’ code 
routine to generate the sound is 
stored. Line 198 sets up the OSWORD 
parameters to write the five byte value 
at &@878 to the interval timer, which 
is subsequently called in line 200. 


It is possible to execute your own 
section of machine code after the time 
delay, rather than just generate a 
beep. This is accomplished by deleting 
lines 130 and 148 and 21 to 280. Lines 
176 and 188 must now-point to the low 
and high bytes, (currently 7D and @) 
respectively), of the start address of 
your code. 


1@ REM Program ALARM 

20 REM Version E1.@ 

38 REM Author G.Weston 

49 REM ELBUG May 1984 

56 REM Program subject to copyright 


166 INPUT "No. of seconds"n 


118 n=n*100 

120 *FxX14,5 218 P%=&7D 
130 !&70=&FFF10601 228 [OPT3 
140 !&74=&001400C8 230 LDX#&78 
15@ !&78=-n 246 LDY#@ 
160 ?&7C=&FF 250 LDA#&7 
178 ?&228=&7D 268 JSR&FFF1 
186 ?&221=6 278 RTS 

196 A%=4:X%=&78:YS=G 288 ] 

206 CALL &FFF1 298 END 
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SELECTIVE 


RENUMBER UTILITY 
by G. and L. Pettit 


This month we present a useful utility program which allows 
selective renumbering of Basic programs, a much needed aid for Basic 


programmers, 

The RENUMBER command in BBC Basic is 
limited in its usefulness, as you can 
only renumber a whole program, and not 
just part of a program. It is often 
desirable to number different parts of 
a program with different groups of line 
numbers. For example, most programs 
listed in the magazine place all the 
procedure definitions starting at line 
1666, just to make the layout of the 
program clearer. Many program standards 
(including ours for ELBUG magazine) 
require that each program include 
initial REMs containing dates, author's 
name, peripherals required, algorithms 
employed, etc. Since no two programs 
will have identical REMs, the main 
program will start at different line 
numbers if blanket renumbering is used. 


Another instance where selective 
renumbering is most useful is in using 
procedure libraries as an addition to a 
main program (see ELBUG issue 5). These 
main programs will inevitably be of 
different lengths and, if the 
Electron's RENUMBER command is used on 
the resulting total programs, the line 
numbers of the procedures will differ 
from one program to the next. This 
makes recognition of the procedures 
difficult. 


It is to cater for these and other 
situations, where selective renumbering 
is to the programmer's and end-user's 
advantage, that the Selective Renumber 
program has been written. It allows 
renumbering of the leading statements 
only, or of a portion of the middle of 
the coding, or of the end statements 
only. The new starting line number and 
the new increment (applied to the 
renumbered lines only) are specified by 
the user and the program will inform 
him if there is any overlap between 
existing line numbers and the new ones 
BEFORE renumbering takes place. The 
user may therefore withdraw from an 


parameters, confusion 


occurs. 


Although line numbers within REM 
statements are not altered, line 
numbers in all other statements will be 
changed, including calls from _ the 
non-renumbered statements. Thus if 
subroutines are being renumbered, calls 
from the main program are changed to 
match, or if only a part of the main 
program is being renumbered, the GOTO 
or RESTORE instructions in the rest of 
the main program will be changed if 
necessary. 


PROGRAM OPERATION 

First type in the Selective Renumber 
program and SAVE on cassette in the 
usual way. The description that follows 
assumes that you have saved the 
Renumber program under the name 
"RENUM', though you could of course use 
any name. To use the program, make sure 
that you are in Mode 6, load the Basic 
program to be renumbered, as normal, 


before any 


then type 
PAGE=TOP+&198 <return> 
LOAD" RENUM" <return> 
RUN <return> 


This procedure will prevent the 
Renumber program over-writing the 
user's program, assuming this is 
already resident in memory at &E@@. The 
value TOP+&19@@ has been chosen so that 
the renumber program is loaded in at 
the next page in memory, just above the 
user program, thus giving the maximum 
space for work. 


When Selective Renumber is run, the 
program will first check that the 
user's program has been loaded. If not, 
an error message is displayed and the 
Renumber program will stop, to allow 
the user to reset PAGE to &E@@ (type 
PAGE=&E@@ <return>), to load his 
program and to reset PAGE again to 
TOP+&1408 (type PAGE=TOP+&18@ <return>). 


overlap situation and re-specify the When RUN is typed, a message requests 
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the range of line numbers to _ be 
renumbered. This may be answered by 


, monn for all lines up to nnn, 
mm , nnn for all lines between mmm 
and nnn inclusive, or 
mm , for all lines from mm 
onwards. 


The program will next request the 
new initial line number and new 
increment, for the section to be 
renumbered. If the resulting line 
numbers would conflict with the 
unchanged numbers, a message will ask 
the user if he wishes to abandon the 
renumbering. If he abandons the run, 
his program will be unaltered, 
otherwise the renumbering will be 
carried out without further messages. 
At the end of the run, the user must 
return PAGE to its original value by 
typing PAGE=&E@@ <return> before 
listing his program. 


EXPLAINING PAGE 


Part of your computer's memory is 
reserved for its own use. The point 
where your own program starts is always 
stored for reference in a_ special 
variable called PAGE. On the Electron, 
this is normally set to SE@@ (3584 in 
decimal), when you first switch the 
computer on. To check, type PRINT PAGE 
<return>. PAGE can be set to other 
values for special purposes, usually so 


Electron RENUMBER command, this may get 
you back into production again. 


VARIABLES USED 

The array E% contains the line 
numbers of the original program, and 
the array F$ contains the equivalent 
line numbers in the renumbered portion 
of the program. Initially, all “elements 
of F% are set to -1 and this is used as 
an indication of the renumbered range. 


N% is PAGE for the program to be 
renumbered. 

L% is the total number of lines in the 
program. 

Gé is the first line to be renumbered. 

H% is the last line to be renumbered. 

DS is the new starting line number of 
the renumbered part. 

M$ is the increment of the line 
numbers in the renumbered part. 

P$ counts the lines as they are 
renumbered. 


1@ REM Program RENUM 
20 REM Authors G & L Pettit 
38 REM Version E1.@ 


40 REM ELBUG MAY 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT 


188 ON ERROR GOTO 230 

118 NS=&EGO 

128 MODE6: PRINTTAB(6,2)"SELECTIVE REN 
UMBER PROGRAM" 

138 PROClines 

148 DIME% (L$) ,F% (L%) 

158 PROColdlines 


that a program can be located ina 168 PROCnewlines 

different part of memory. It is 176 PROCtest 

possible, in this way, to have more 188 PROCline_ren 

than one program in memory at the same 198 PROCinfill 

time. This happens when the RENUMBER 200 PRINT'Time = "TIME DIV1@@6" secs" 

program and your program are in memory 218 END 

together. 226 : 

236 ON ERROR OFF 
248 MODE 6 

Finally, when running the program, 258 IF ERR<>17 REPORT:PRINT" at line 
Please note that it takes an "SERL 
appreciable time to renumber even a 268 END 
small part of a long program. Don't be 276 : 
impatient, just be thankful you're not 1688 DEFPROCLines 
having to edit all the line numbers on 1018 finish=FALSE:L3=@:C$=N% 
the screen - and go amd file your 1620 REPEAT 
letters or read ELBUG, while your micro 1030 IF ?(C%+1)=&FF finish=TRUE:GOTO19 
does the job for you. You won't use 58 
this program every few minutes, but 1646 C=? (C$+3) +C$: LS=L3+1 
when you get in a tight corner with 1656 UNTILfinish 
line numbers, and you can't use the 1866 ENDPROC » 


et 
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el 


1076 : 

1688 DEFPROColdlines 

1698 C3=N% 

1166 FORIS$=1TOL3 

1116 ES (1%) =(? (CS$+1) ) *256+? (C$+2) 

1128 C$=CB+? (C3+3) 

1130 NEXT 

1148 ENDPROC 

1158 : 

1168 DEFPROCnewl ines 

117@ FORI$=1TOL$:F% (I$) =—1 NEXT 

1188 NS="***Must be numbers***" 

1198 PRINT'"Give line numbers of first 
and last"'"lines to be renumbered."''" 
Use the format e.g. 106,256" 

1266 INPUT" or ,25@ (renumbers up to 
line 258)"'" or 100, (ditto from lin 
e 258 to end)"',GS,HS$ 

1216 IF ASCG$=-1 G%=9:GOTO1236 

1220 GS$=VALGS: IF G%=8 AND GS$<>"@"PRINT 
"N$:GOTO1198 

1236 IF ASCHS$=-1 H%=E%(L%) :GOTO1250 
1246 HS=VALHS:IF H8=@PRINT'NS$:GOTO1196 
1250 INPUT'"Give new line number for f 
irst line and increments (e.g.200,10) " 
DS ,MS 

1268 D$=VALDS:M$=VALMS: IF D%=GORM$=6PR 
INT'NS$:GOTO125@ 

1276 P$=0:TIME=6 

1286 PRINT'"Delay for processing" 

1298 FORI%=1TOL% 

1300 IF G%>E% (1%) THENY$=E$ (I$) :GOTO1340 
1316 IF H&<E%(I%$)GOTO1340 

1320 Z%=1% 

1330 F%(1%)=D$+M3*PS: PS=PS+1 

1340 NEXT 

1350 P%=DS+M%$* (PS-1) 

1366 ENDPROC 

1376 : 

1386 DEFPROCtest 

1398 clash=FALSE 

1406 FORI%=1TOL% 

1416 Q&%=F% (1%) :IF Q3=-1GOTO1 469 

1426 FORJ%=1TOL3 

1436 IF Q&<E%(J%$) J$=L%3:GOTO145¢ 

1449 IF Q$=E%(J%) PROCclash 

1456 NEXT 

1460 NEXT 

1476 IF (Z%+1)>L% Z$=L%-1 

1480 IF D%<=Y%$ PRINT'"Your ranges over 
lap!":clash=TRUE 

1490 IF (Z%+1)>L% OR D%>E%(L%) GOTO151@ 
1500 IF P$>=E$(Z$+1) PRINT'"Your range 
Ss overlap!":clash=TRUE 

1516 IF clash INPUT'"Do you want to go 
on (Y or N) "AS:IF AS<>"Y"ANDAS<>"y"_ E 
ND 

1526 ENDPROC 

1538 : 

1548 DEFPROCclash 


1550 IF Q$<G% OR Q$>H% PRINT"Clash in 
line ";Q%:clash=TRUE 

1568 ENDPROC 

1570 : 

1588 DEFPROCline_ren 

1598 CS=N% 

16008 FORI$=1TOL$:F%=F% (1%) 

1610 IF F%=-1GOTO1646 

1620 ?(C%+1)=FSDIV256 

1638 ?(C%+2) =FSMOD256 

1648 C%=C%+? (C$+3) 

1650 NEXT 

1668 ENDPROC 

1670 : 

1680 DEFPROCinfill 

1698 finish=FPALSE 

1768 C%=N% 

1719 REPEAT 

1728 BS=?C%:IF B%=&28 C$=C$+1:GOTO1720 
1738 IF B%=13GOTO179¢2 

1740 IF B%=&22 REPEAT C%=C%+1 :B3=?C%:U 
NTILBS=&22:C%=C$+1 GOTO] 720 

1758 IF B%<&8B GOTO177¢ 

1766 IF B%=&8B OR B%=&8C OR BS=&E4 OR 
B%=&E5 OR B%=&F7 PROCsub 

1776 C$=C$+1:GOTO1810 

178@ PRINT R%,~S%, TS 

1796 IF ?(C%+1)=&FF finish=TRUE:GOTO18 
10 

1886 C$=CS+4 

1818 UNTIL finish 

1828 ENDPROC 

1838 : 

1848 DEFPROCsub 

1856 C$=C$+1:BS=?C$:IF B%=&20 OR BS=&E 
5 GOTO185¢ 

1866 IF BS<>&8DGOTO2060 

1870 C$=C3+1:US=G 

1880 R&=?C$:S$=? (C$+1) s TS=? (CS+2) 

1898 S%=S%-&840 

1986 TS=(T%-&4G) *256 

1910 IF R8MOD&10=8 US=16384:RS=R3+E4 
1926 IF R%=&54 R$=G0:GOTO1960 

1930 IF R%=&44 R%=64:GOTO1960 

1949 IF R%$=&74 R%=128:GOTO196G 

1950 IF R$=&64 R%=192 

1968 O$=US+R3+S3+TS 

1978 FORI%=1TOL$ 

1986 IF E%$(I%)<>0% GOTO2G62G 

1999 IF F%(I%$)=-1 GOTO2016 

2088 PROCinsert 

2010 I%=L% 

2020 NEXT 

2038 CB=C$+2 

2046 BS=?(C%+1) IF B%=&28 C$=C$+1:GOTO 
20408 

2050 IF B%=&2C C%=C%+1 :GOTO185¢ 

2868 ENDPROC 

2078 : 

2089 DEFPROCinsert » 
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2098 US=F% (I$) 

2108 V%=U%S DIV&400G 
2118 WS=U% MOD&4966 
2126 S%=WS MOD64+&40 
2138 TS=WS DIV256+&40 
2148 U%=W% MOD256 
2156 W%=U% DIV64 


2160 IF W3=1 W%=-&10:GOTO2196 
2178 IF W3=2 W%=&20:GOTO2190 

2180 IF W3=3 W3=510 

2198 RS=WS+&54-4* VS 

2206 ?C%=RS:? (C$+1) =S32 ? (C$+2) =TS 
2216 ENDPROC 


NEW PRODUCTS AT THE MICRO USER SHOW 
by Nigel Harris 


At the last Micro-User exhibition at 
the end of March it was evident that 
firms already involved in the 
manufacture of add-ons for the 
Electron's 'Big Brother' computer have 
more than just an eye out for a 
similarly developing Electron market. 
Spurred on by the belief that the 
Electron will be as successful as_ the 
BBC micro, a number of devices are 
beginning to appear that will extend 
the Electron's facilities towards that 
of the Beeb. This will greatly enhance 
the capability of this very attractive 
micro, and allow a much wider range of 
software to be used. 


DISC_SYSTEMS 


Pace were showing early versions of 
their disc interface for the Electron. 
Due for release around June, it plugs 
on to the edge-connector at the back of 
the Electron. This of course, would 
allow you to load and save programs on 
floppy disc much more quickly than 
cassette, very useful to anyone who 
continually finds themselves waiting 
for their cassette recorder. Floppy 
disc drives are quite complex devices, 
and require direct computer control. A 
complete disc system would normally 
therefore, come complete with a disc 
filing system program to control the 
interface between the computer and the 
disc machine, and render many disc 
transactions invisible to the user. The 
Pace disc interface will be supplied 
with their own 'DFS' which, they say is 
functionally equivalent to their 'AMCOM 
DFS' already available for the BBC 
Micro. (We shall look at discs in more 
detail in a later issue of ELBUG). 


JOYSTICKS 
Two firms, First Byte Computers and 
Signpoint Ltd, had on show interface 


boxes to allow the use of joysticks on 
the Electron (inclusive prices £24.95 
and £16.95 respectively). Both support 
the Atari type of switching joystick. 
There are a large number of joysticks 
to this standard already available. 
However, aS many BBC owners have found 
out, there are two functionally 
different types of joystick around. One 
is the switched type that these 
interfaces cater for, which is quite 
suitable for games use. The other is 
the continuously variable type that 
allows the input of infinitely many 
intermediate values if required to the 
computer, and is often used for more 
serious graphics applications (this is 
the analogue type of system that is 
standard on the BBC micro). Like the 
disc interface, these two joystick 
interfaces will plug into the back of 
the Electron, but neither extends the 
expansion interface to allow for other 
add-ons. They must come at the end of 
one that has been expanded, or other 
add-ons to the Electron unplugged. 


Addresses of suppliers: 
Pace Disc Systems, 92 New Cross 
St., Bradford BDS 8BS. 


First Byte Computing, 18 
Castlefields, Main Centre, Derby 
DE] 2PE. 


Signpoint Ltd., 166a Glyn Road, 
London E5. 


{We hope to review the two joystick 
interfaces more fully in the next issue 
of ELBUG.] 
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100 PROGRAMS FOR THE ACORN ELECTRON 
Reviewed by Mike Williams 


This book, and cassette of the same title, can be purchased together 
or separately. 168 programs is a lot of computing in either format 
but is it value for money? Mike Williams looks at this well produced 


package and reports. 


Title: 106 Programs for the Acorn 
Electron 

Publisher: Prentice Hall International 

Price: £6.95 (book) 


£11.58 (cassette) 


The book contains a listing of each 
program which is clearly printed 
(unlike many computing books), with 
many instructions indented to clarify 
the structure of the program. Each 
program is accompanied by brief notes 
on the use and design of the program in 
question. The binding of the book made 
it very difficult (in fact impossible) 
to keep the book open at any listing, 
so that typing in any program was very 
much a one handed = and_ somewhat 
difficult task. 


The cassette is well packaged to 
look like the book, and comes complete 
with a 32 page booklet containing notes 
on each program, very similar to those 
in the book. The only omission here is 
the book's list of contents which 
conveniently classifies the programs 
under various headings,and a general 
introductory chapter. 


With 1@@ programs on offer, clearly 
the emphasis is on quantity, rather 
than quality,and consequently many of 
the programs are quite short. They 
cover a wide range including games (of 
course), business and home 
applications, mathematics and science 
applications and graphics examples. I 
believe that there are too many 
mathematical examples for the typical 
Electron user, and in contrast, there 
is insufficient coverage of string and 
text handling. This perhaps reflects 
the author's academic background, but 
even so, current ideas on the teaching 
of programming have long since moved on 
from the idea of the computer as a 
number machine. 


The program descriptions, and indeed 


even the instructions for their use in 
some cases, are often frustratingly 
short in the information provided. Many 
of the programs should really be 
considered as basic routines which the 
reader could integrate into a more 
polished program. As_ such,’ this 
collection could form an invaluable 
resource, particularly for the novice 
programmer. In view of this, I feel it 
is unfortunate that the notes 
accompanying many of them are so short, 
with often inadequate explanation of 
how the program works. 


Despite some of the criticisms that 
I have made above, I am sure that many 
Electron owners, interested in learning 
more of programming, will find much of 
interest in these programs. Either book 
or cassette on their own would be 
sufficient, the former giving the 
advantage of printed listings for 
reference, the latter the convenience 
of direct cassette loading. Few people 
will quibble at programs costing a mere 
7p (book) or 11.5p (cassette) each, 
though I do believe that half the 
number of programs and twice the 
explanation would have provided a more 
useful publication. But then, I 
suppose, the title wouldn't have been 
quite so eye-catching! & 
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ELECTRON GRAPHICS (Part 6) 


by Mike Williams 


This month in our series on Electron Graphics we look at some of the 
more interesting and also amusing effects that can be achieved using 


the PLOT command. 


Last month we looked at how to use 
the PLOT85 command to produce a variety 
of filled in shapes, but all based on 
the triangle. It would be rather nice 
if Basic allowed us to fill in and 
colour any shape, and indeed BBC Basic 
does just that in another variation of 
the PLOT command. 


To fill in an area of literally any 
shape on the screen is in fact quite a 
complex task, and although this can be 
achieved just using Basic, we shall 
concentrate on some much simpler but 
never-the-less very useful fill 
routines. Sophisticated fill routines 
are included in commercially available 
graphics packages such as the 'Electron 
Graphics System! from Salamander 
Software that we reviewed in ELBUG 
issue 4, and in PAINTBOX shortly to be 
released by us for the Electron. 


The fill instruction that we shall 
be using takes the form: 

PLOT77,xX,+Y 
where the '77' specifies which PLOT 
option we are going to use, and 'x,y' 
refers to a point on the screen in the 
usual graphics co-ordinates. This 
instruction draws a line in the current 
drawing colour to the right and to the 
left of the point given. The line is 
continued in both directions until a 
point is reached which is not in the 
background colour, or the edge of the 
screen is reached. 


Now this may well sound rather 
complicated, and you might also be 
wondering how this can be used to fill 
in an area, since the instruction just 
draws a straight line. Let's look at a 
very simple example: 

188 MODE 2 

116 GCOL G,3 

128 PLOT77,646,512 

138 END 
We shall be using Mode 2 in all the 
examples this month as it allows us the 
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choice of all 16 colours. Line 119 
selects yellow as the drawing colour, 
and the background is black by default. 
The PLOT instruction in line 120 starts 
at the point (640,512), the centre of 
the graphics screen, and draws a yellow 
line horizontally right and left till 
it reaches the edges of the screen. 


At this point it will be useful to 
introduce a procedure to draw an 


outline circle in white, and of any 
radius and in any position on the 
screen. This is very similar to the 


basic circle routine described in part 
4 of this series in ELBUG issue 4. The 
main difference is the inclusion of a 
GCOL command to ensure that the circle 
is drawn in white, while VDU29 is used 
to reset the graphics origin back to 
(8,8) after moving it to the centre of 
the circle at the start of the 
procedure. Here is the procedure: 


1008 DEF PROCcircle(radius,x,y) 
1616 LOCAL angle,X,Y 

1628 VDU29,x;y;:GCOL 6,7 

1038 MOVE radius,@ 

1646 FOR angle=@ TO 2*PI STEP PI/16 
1058 X=radius*COS (angle) 

1068 Y=radius*SIN (angle) 

1078 DRAW X,Y 

1980 NEXT angle 

1698 VDU29,0;G; 

1168 ENDPROC 


Assuming that you have typed this 
procedure into your Electron, add this 
variation on our first program given 
above: 

108 MODE 2 

110 PROCcircle (200,640,512) 

128 GCOL 6,3 

130 PLOT77,646,512 

149 END 
This very short program draws a white 
circle of radius 206 and with its 
centre at (648,512). The PLOT command 
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in line 4@ draws a yellow line as 
before, but it stops as soon as it 
reaches the circumference of the circle 
because this is no longer’ the 
background colour. 


You might like to try some 
variations on this program, by changing 
the x and y co-ordinates given in the 
PLOT command. You should find that as 
long as you choose a point inside the 
circle, you get a horizontal yellow 
line inside the circle. If you choose a 
point that is outside the circle, then 
the line will reach at one end to the 
circumference of the circle, and at the 
other end to the edge of the screen (or 
indeed to both edges of the screen). 
The usefulness of this PLOT instruction 
lies in the fact that we do not need to 
know in advance where the ends of the 
line will be. 


All we need to do now to fill 
completely the inside of the circle is 
to repeat the PLOT77 command from the 
bottom to the top (or top to bottom if 


you wish). Yes, you guessed it - we 
need to use a FOR-NEXT loop. Rewrite 
your main program as follows: 


16@ MODE 2 

118 PROCcircle (268,648,512) 
126 GCOL 8,3 

136 FOR Y$=312 TO 712 

140 PLOT77,646,Y% 

15@ NEXT Y$ 

168 END 


If you run this program you should find 


that the white circle is neatly filled 
with a yellow centre (of course!). 


Now although this seems to work 
quite well, it is very easy indeed to 
improve the speed. To see how, we need 
to refer back to a previous article in 
this series, that in ELBUG issue 4, 
where we looked briefly at screen 
resolution. 


Mode 2 that we have been using 
provides low resolution graphics, and 
the screen actually consists of 166 
points horizontally by 256 points 
vertically, compared with the graphics 
co-ordinates that we use of 1288 by 
1624. What this means is that in the 
vertical direction, for example, we 
have to move by a minimum of 4 graphics 
units in order to move 1 physical point 
on the screen. If we move in steps of 
less than 4 then we are still referring 
to the same physical screen point. 

This means that in our Mode 2 
programs any vertical movement in steps 
of less than 4 is wasted, and in the 
horizontal direction we need steps of 
at least 8 to move physically on the 
screen. If we return to our previous 
program you should sée that we can 
change line 13@ to read: 

138 FOR Y$=312 TO 712 STEP 4 
If you run the revised program, you 
should find that you get exactly the 
same result as before, but four times 
faster! 


Similar factors apply in all 
graphics modes. The minimum vertical 
step size is always 4 (physically 256 
points on the screen), but the minimum 
horizontal step size varies according 
to the mode: 2 in Mode @, 4 in Modes 1 
and 4, and 8 in Modes 2 and 5. 


We have now seen enough to write a 
more general fill routine, that will 
fill not just a circle, but any shape, 
though with some limitations. We will 
write a procedure that will specify a 
point on the screen, and will fill the 
surrounding area. We will assume that 
the existing colour on the screen at 
the point specified is the background 
colour, and that the boundaries of the 
area to be filled will be marked by 
lines or areas of a different colour, 
or the edges of the screen, whichever 
are reached first. 
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In filling the circle we moved in 
one direction only, from bottom to top. 
With a more general approach, we no 
longer know where the boundaries are 
going to occur, and so we need to fill 
in the area in two sections, both 
starting from the point specified. The 
first section will be to fill in line 
by line moving vertically upwards from 
the starting point, and then to fill 
downwards from the starting point. In 
both cases we continue moving and 
filling until we encounter a point 
which is not in the background colour. 


The processes of first filling up 
from a point, and then filling down 
from the point are essentially the 
same, so this has been written as a 
procedure called PROCfillupdown, which 
is then called twice in the main 
procedure, PROCfill. These two 
procedures are defined as follows: 


1206 DEF PROCfil1l (colour,x,y) 

1228 PROC£illupdown (colour ,x,y,4) 
1238 PROC£illupdown (colour ,x,y-4,-4) 
1248 ENDPROC 

1256 : 


1306 DEF PROCfillupdown (colour ,x,y,inc) 


1316 newy=y:background=POINT (x,y) 

1328 GCOLG,colour:GCOLG,128+background 
1338 REPEAT 

1348 PLOT77,x,newy 

1358 newy=newy+inc 

1366 UNTIL POINT (x,newy) <>background 
1378 ENDPROC 


Let's look first at the procedure 
PROCfillupdown, as this is the one 
which does all the work. Notice the 
POINT instruction. This tells us the 
colour (as a number) of any point on 
the screen. The parameters x,y 
represent the starting point for 
filling an area, so the first task is 
to find the colour of this point and 
set it as the background colour using 
the GCOL command (lines 1316, 1326). 
Remember that background colours are 
always specified by adding 128 to the 
colour number. The other two parameters 
of this procedure are the colour to use 
for filling (colour) and the increment 
(inc) for filling up (4) or down (-4). 


Since we no longer know in advance 


the start and end points we cannot 
readily use a FOR-NEXT loop this time, 
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but this is exactly the situation for 
using REPEAT-UNTIL. We shall repeatedly 
call the PLOT77 command, as we move up 
or down the screen, until the colour of 
the next starting point is different to 
the background colour, again detected 
by using the POINT function. Because we 
are using REPEAT-UNTIL we must 
ourselves program the incrementing of 
the new value of y (newy) to move up 
(or down) the screen. 


The fill procedure itself simply 
calls the other procedure twice, once 
to fill up from the starting point, and 
once to fill downwards from the 
starting point. 


So now we have a general fill 
procedure that will enable us to fill 
in (or colour) any area, starting from 
any point on the screen. Some examples 
will soon expose the limitations of 
this procedure and you will begin to 
see why a really general fill routine 
is bound to be quite complex. 


Our’ procedure will fill any circle 
provided the starting point is directly 
between the highest and lowest points 
of the the circle. Any other position, 
and the filling will stop as soon as 
the starting point for each line 
reaches the circumference. You will 
also have to be careful about using 
this fill procedure for concave areas, 
or you may well find 'holes' being left 
unfilled. 


Despite these limitations, this 
procedure does have a lot of uses, some 
of them quite amusing as we shall see 
in the two examples with which we shall 
finish this month's article. Both of 
these examples require all _ three 
procedures that we have already been 
using. The first example draws two 
overlapping circles on the screen, and 
then colours in each of the three 
enclosed areas with a different colour. 
Any problems are avoided by carefully 
selecting a central starting point for 
each area. Here is this example: 


168 MODE 2 

11@ ON ERROR GOTO 510 

128 PROCcircle (386,446,512) 
138 PROCcircle (380,849,512) 
148 PROC£i11(1,440,512) 
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156 PROC£i11 (2,640,512) 148 PROCcircle (56,840,612) 
166 PROC£i11 (4,849,512) 15@ PROC£i11 (4,448,612) 
198 END 168 PROCfi11 (4,840,612) 


170 PROCcircle (75,648,408) 
180 PROC£i1l1 (1,646, 400) 
198 REPEAT 

206 PROC£ill (5,440,658) 
218 PROCEil1 (4,440,568) 
228 Z=INKEY (200) 

230 UNTIL FALSE 

246 END 


I hope that you will be able to think 
of further ways to experiment with this 
fill routine. Although a fill routine 


The final example has to be run to see 
the full effect. The program first 
draws a large circle and colours it in. 
Two small circles are then added and 
coloured as eyes, and a third circle 
added and coloured as a nose. A 
REPEAT-UNTIL loop is then used to 
repeatedly open and close one eye to 
give the effect of winking. This is 
done by colouring in the eye with the 
same colour as the rest of the face, 
and then again with the colour of the 
eye. The starting points are carefully 
selected just inside the top and’ bottom : : 
edges in each case to give the may seem attractive, it can be be 
realistic effect of an eye first complex, and the triangle plotting 
closing and then opening again. descr ibed last month will often be 
simpler to use, particularly when the 
shape of an area to be coloured is 


166 MODE 2 known in advance. Next month we will 

116 ON ERROR GOTO 519 continue to look at more simple 

128 PROCcircle (406,640,512) variations in the -use of the PLOT 

125 PROC£i11 (5,646,512) command. 

138 PROCcircle (50,446,612) t:) 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


SINGLE KEY RECOVERY - C.Luck 

The following single function key definition will attempt to recover as much of a 
bad program as possible, enabling it to be listed, and corrupt lines corrected. When 
you need it, press function key zero (Func-f@), and the computer will display the 
lines successfully recovered. 
* KEYOMODE6 : p=&EGG: ?7p=1 3:p?1=8: REPEAT: c=4: REPEAT: c=c+1 : UNTILp?c=1 3:p?3=c:P.p?1 *256+p? 
2:p=ptc:UNTILp?1=&FF|M 

This is much more limited than the Rescue program in issue 2 of ELBUG but might 
be well worth trying in the first instance. & 
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THE LATEST GAMES REVIEWED 


Title :737 Flight Simulator 
Supplier:Salamander Software 
Price £9.95 

Reviewer :Mike Williams 

Rating :**** 


If you have ever fancied your 
chances piloting a modern jet airliner, 
then this program gives you that 
opportunity, in this computer 
simulation. You are the pilot of a 
Boeing 737 jet with a full display of 
all the necessary instruments on the 
screen in front of you. The top part of 
the screen either shows a_ visual 
impression of the runway during 
take-off and landing, or a radar plot 
of the runway approach amd the 
immediate vicinity. 


This is certainly a comprehensive 
and realistic simulation. The cockpit 
display adequately shows 22 different 
instruments, making good use of the 
Electron's graphics facilities. A 
further clue to your status is provided 
by the reassuring sound of the engines' 
turbine whine in the background. This 
amount of feedback is very useful for 
the 'pilot', as there are 27 keyboard 
commands to control all aspects of the 
plane! Fortunately there is also a very 
good manual, which not only lists in 
detail all the instruments and 
controls, but also gives you the 
necessary information for take-off and 
landing. 


Take-off is not too difficult - you 
just use maximum thrust to achieve 
sufficient take-off speed and then 
climb (make sure you raise the landing 
gear and retract the flaps quickly 
though) . You can then climb the 
aircraft up to any height you like, 
banking and setting course as you wish. 
You'll soon find that you need to brush 
up on your navigation as_ the plane 
flies out of radar range and you have 
to rely solely on the instruments. 
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Assuming you are able to find your 
way back to the airport, the most 
challenging task of all is to make a 
safe landing. I found I needed to 
practice this several times before I 
was able to land the plane 
successfully, and even more to do so 
regularly. The program helps’ by 
allowing you to practice just landings 
(as well as take-offs), and in the 
event of a crash (very likely) allows 
you to take a metaphorical step back 
and try again (a pity you can't do this 
with the real thing!). 


I found this a fascinating and 
exciting program to use; one which is 
rather different from the normal run of 
computer games, and with many more 
features than there is space to 
describe here. Even though I can now 
take off and land reliably, after a 
flight of up to half an hour, I don't 
think I'm quite ready for the real 
thing. My only slight criticism is that 
I personally lost interest once I could 
take-off and land without coming too 
close to crashing the plane, although 
there are other features that could 
maintain your interest longer (such as 
setting up a strong crosswind or 
specifying your own airport layout). 
Despite the small criticism, I 
thoroughly recommend this program. 
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GAMES WITH A 'BYTE' 
FROM ALLIGATA SOFTWARE 
Reviewed by Alan Webster 


Title : BLAGGER 
Price £-£7.95 
Rating Rew 


Blagger is one of three new games 
for the Electron’ from Alligata 
Software. It has twenty (yes twenty!) 
different screens, each with its own 
title and level of complexity. It will 
take you a long time to get through the 
first few screens, but persevere - it's 
well worth the effort. 


The object of the game is to 
retrieve the keys to a safe. Once all 
the keys on that level have been found, 
you can open the safe and proceed to 
the next level. There are a number of 
lifts and coveyor belts that have to be 
negotiated, as well as a host of 
different creatures to avoid. The game 
is very simple to operate, needing only 
three keys, and is an excellent example 
of its genre. 


Title : GUARDIAN 
Price : £7.95 
Rating : ***** 


In my view, Guardian is the ultimate 
game for the Electron. This game is a 
version of the arcade game called 
Defender, and it does run very well. 
Although speed limits the game to a 
four colour mode, the game is still 
fast and very smooth, with some of the 
best sound effects you are likely to 
find on an Electron. 


At one time, it was thought that a 
version of Defender for the Electron 
would be impossible because of the 
sheer speed necessary, the sideways 
scrolling and the extent of the 
graphics and movement involved. 
Alligata Software have not only proved 
this view wrong, but provided the 
fastest game I have so far seen for the 
Electron. 


The idea of the game is to navigate 
your spacecraft over the surface of a 
planet, and to shoot the marauding 
aliens before they abduct the 
humananoids. If the aliens reach the 
top of the screen with a humanoid, they 
mutate and hunt you down” with 
unbelievable ferocity. Additional 
features include other undesirables 
such as baiters, pods and swarmers. An 
extra ship is awarded at every 16000 
points. 


Like all good games, this one 
requires a degree of practice before 
you appreciate how exceptional it is. A 
high score of 658,000 for Guardian was 
achieved by the author, Steven Evans, 
at the recent Micro User Show. However, 
if you don't quite measure up to this 
level, still send your high scores into 
us for inclusion in our high score 
table for the Electron. 


Title : BUG BLASTER 
Price : £7.95 
Rating : *** 


Bugs Blaster is avery good 
implementation of the arcade game 
called Centipede. The action takes 
place in a mushroom patch full of 
centipedes, spiders, frenzied fleas, 
and a mushroom poisoning scorpion 
called 'Brian'. 


Your main objective is to wipe out 
the centipedes before they take over. 
The job is not too easy, especially in 
the later stages when the game speeds 
up and the action becomes fast and 
furious, although the early stages do 
tend to become rather boring after a 
while. 

All of these games include a high 
score table and extra life features. 
They are available direct from Alligata 
Software Limited, 178 West Street, 
Sheffield S1] 4ET. & 
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LUNAR ESCAPE 
by C. J. Hall 


The following game, written entirely in Basic, is an implementation 
of the arcade game Lunar Rescue, where you control a space shuttle 


ferrying survivors from the 


lunar surface to the orbiting space 


ship. The game is quite fast, is fun to play and very addictive. 


In this game, you have to steer a 
rescue shuttle safely through a belt of 
asteroids, touching down on one of the 
three landing pads where you take on 
board a survivor. You then launch the 
craft away from the pad and steer your 
way back through the asteroids, finally 
docking safely with the main ship. The 
survivor disembarks, and the process is 
repeated. Each landing gets harder 
since the landing pads are partially 
burnt away by the shuttle's thrusters 
during each launch, leaving a smaller 
landing pad for the next trip. 


The four controls for the shuttle 
are as follows: 


Space bar - releases shuttle from 
main craft or launches 
it from the landing 
pad. 

Return - brakes as the shuttles 
climbs or descends. 
Z - moves the shuttle left. 

X - moves the shuttle right. 
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You have a choice of two skill 
levels, level 1 having fewer asteroids 
than level 2. On successive screens the 
number of asteroids increases and they 
also move faster as well as diagonally, 
making the game progressively harder. 


The listing is quite long. and 
complicated, so take great care when 
entering the program as debugging could 
be difficult due to the complicated 
interactions between the various parts 
of the program. 


This is a deceptively simple game, 
which is much harder to. play 
successfully than it might appear 
initially. Like all good computer games 
this one is quite addictive, and well 
worth the effort of typing it in. 


16 REM Program LUNAR 

2@ REM Version E@.2 

3@ REM Author C.J.Hall 

46 REM ELBUG MAY 1984 

50 REM Program subject to Copyright 
60: 

168 ON ERROR GOTO 3548 

118 MODE 6:VDU19,9,4,0;¢ 

128 PROCinst 

138 PROCsetchars 

140 *Px4,1 

158 II%=RND (-TIME) 

16@ IFS%<>-1 !&80=1000 

170 PRINT''"Skill level (1/2)" 

18@ REPEAT: ZS=GETS$:UNTIL ZS="1"ORZS=" 
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Guide your shuttle down through the 
ast 


@ the 1 below. 
the waitin a fiw 
the nother 

Your shuttie has only a limited anount 
of fuel, so wateh for it running out 


z ~ weve LEFT 

x - move RIGHT 

RETURN - SLOM DOM 

SPACE ~ RELEASE FROM 
MOTHER SHIP 
OR TAKE OFF 


Skitt level (172) 


198 IF ZS="1" GS$=FALSE:AT%=5 ELSE G$= 
TRUE: AT%=10 
208 MODE4:VDU23,1,0;0;0;0;:VDU 19,0,4 
78; 
218 *FX15,0 
226 DOCK=20:LL%=1 :S%=0:BS=1 7000: I$=BS 
:FI1$=400:F%=FI%$:X%=G:NS8=FALSE: US=0 FLA 
G1%=FALSE 

238 NL%=3: INS=FALSE: AN$=FALSE: D%=0:FT 
$=TRUE: A$=981 434236: SPS=CHRS (32) 

248 W%=16777183: Y$=-66822:Y1$=-842972 
9:H&=!&80:V%=FALSE: BBB$=V%: *FX11,0 

256 CLS:DIMX% (41) ,Y$(41) ,IX$(41) , 1Y$( 
41) :NG3=0 

268 LS=STRINGS (40,CHRS$238) : PRINTTAB (@ 
78)"Score : 880600" 

278 PRINTTAB (@,2) ;LS; : PRINTTAB (20,0) " 
Hiscore : 880000" 

280 PRINTTAB(@,1)"Landers : @06";TAB(14 
,1)"Fuel : 6600";TAB(29,1)"Level : 66"; 

298 PRINTTAB(G,31)"Landings: This lev 
el 68 : This game 606"; 

368 SEA1$=STRINGS (40,CHRS$253) 

318 STMPS$=STRINGS (2,SP$) +CHR$247+CHRS 
245+CHRS$249+STRINGS (2,SPS) +CHR$140+STRIN 
GS (7,CHRS$8) +SP$+CHRS$243+SPS 

328 STM2$=SPS+CHR$244+SPS$+CHR$1 4+STRI 
NGS (7,CHRS$8) +STRINGS (2,SPS$) +STRINGS (3,C 
HRS$248) +SPS+SP$ 

338 SHIPS=STMPS+SPS$+STM2$ 

348 QS=SHIPS:ANYS=STRINGS (3 ,CHRS$232) 

350 WHTS=STRINGS (2,CHR$234) 

366 FORII$=@TOHSSTEP (H$DIV1@@) : PRINTT 
AB (37-LEN (STRS$ (II%) ) ,@) ; 11% 

376 SOUND@G,-15,3,1:NEXT 

388 PRINTTAB (37-LEN (STRS$(H%) ) ,@) ;HS 

398 SOUND1,-15,150,4 

400 FORII$=1 TO 3:PRINTTAB(11,1);II$: 
SOUND@,-15,3,3:NEXT 

410 FORII$=20TOFSSTEP2@: PRINTTAB (25-L 
EN (STRS (II$) ) ,1) ;I11$:SOUND@,-15,7,1:NEXT 

426 SOUND1,-15,150,8:PRINTTAB (38,1) "1" 

436 MANSHIPS=STMPS+CHRS (255) +STM2$ 

449 ENTERS=STMPS+SPS$+SPS$+CHR$244+SPS$ 
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450 PRINTTAB(@,3@) ;SEA1S; 

469 PRINTTAB(@,29) ;:VDU234,234,232:PR 
INTSPC (34) ; ?VDU233, 234,234 

478 PRINTTAB(@,28) ;:VDU234,232: PRINTS 
PC (36) ; : VDU233, 234 

480 PRINTTAB (@,27) ;CHR$232; SPC (38) ;CH 
R$233; 

499 PRINTTAB (9,29) ;WHTS;SPC(8) ;WHTS;S 
PC (8) ;WHTS; 

560 PRINTTAB (8,28) ;WHTS;WHTS;SPC(6) ;W 
HTS ;WHTS ;SPC (6) ;WHTS ;WHTS; 

516 PRINTTAB (17,27) ;WHTS;WHTS;WHTS; 

526 IF IN%=TRUE GOTO 1869 

538 L%=RND(25)+5 

548 M$=3 

550 PRINTTAB(L%,M%) ;SHIPS 

568 N%=RND(3)-2:IF N%=@ GOTO 560 

576 Jt=8:K3=6 

588 TIME=0 

59% PROCsetastros 

688 PROCdispastros 

618 BBB%=FALSE 

626 REPEAT 

638 PROCmaninship 

646 PROCnoveastros 

658 UNTIL V%=TRUE 

660 REPEAT 

678 PROGnoveman 

688 PROCmoveastros 

698 PROCnoveship 

766 UNTIL BBB% OR U$=1 

710 IF BBB% THEN BBB%=FALSE:GOTO 620 

728 X%=6 

730 REPEAT 

746 PROCmoveastros 

758 PROQnoveship 

768 UNTIL INKEY(-99) 

778 PRINTTAB (QWS,K%+1) STRINGS (6,SPS) 

786 REPEAT 

796 PROCnoveastros 

888 PROCupwego 

810 PROQnoveship 

828 UNTIL BBB% OR DOCK<6:IF BBB% THEN 
BBB%=FALSE:GOTO 620 

838 PROChavewedocked 

840 *FX15,0 

858 GOTO 620 

868 END 

876: 

1688 DEFPROCmoveship:TS=L3+N%$: IFT%=0 O 
R TS$=35 N$=-N3: TS=L3+NS 

1610 L%=T%$: PRINTTAB (L%,M%) ; SHIPS: ENDPR 
oc 

1626: 

1038 DEFPROCmaninship: T%=L3+N$%: IFT3=0 
OR T$=35 NS=-N3: TS=LE+NS 

1648 L%=T%: PRINTTAB (L$,M%) ;MANSHIPS: IF 
INKEYS (2) <>SP$ ENDPROC 

1658 V%=TRUE: PRINTTAB (L%,M%+2) ;SPC1G:P 
RINTTAB (L%&+3 ,M%+1) ;SPS 
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1068 SOUND1,-15,220,1:J$=L3+3:K%=M$+3 
107@ PRINTTAB (J%$,K%) ;CHR$ (255) : PRINTTA 
B(L%,M%) ; SHIPS: X$=@: ENDPROC 

1686: 

1898 DEFPROCsetastros 

1188 FOR Q%=8 TO AT%+1 

111@ X%(Q%)=RND (37) +1 

1126 Y%(Q%) =RND (18) +6 

113@ IX%(Q%)=RND(5)-3:IF IX%(Q%)=@8 GOT 
O 1138 

114@ IF G%=FALSE GOTO 1160 

115@ IY%(Q%) =RND (3) -2 

1166 IF Q%MOD5=@ PROCmoveship 

1178 NEXT 

1188 ENDPROC 

1198: 

1268 DEFPROCmoveastros 

1210 IF AT%<1@ BG%=1:E%=AT%$:GOTO 1240 
1220 IF FT%=TRUE BG$=1:E%=AT$ DIV 2:FT 
%=FALSE:GOTO 1240 

1238 BG$=AT$ DIV 2:E%=AT$:FTS=TRUE 
1246 FOR Z%=BG% TO E% 

1258 T=X% (Z$) + 1X3 (ZB) 

1266 R&=Y% (ZS) +1Y3 (ZS) 

1270 IF T%<@ PRINTTAB (X%(Z%) , Y$(Z%) )SP 
$;:T%=39:X% (ZS) =T$:GOTO1 298 

1288 IF T%>39 PRINTTAB(X%(Z%) ,Y%(Z%))S 
PS; :TS=G0:X% (ZS) =TS 

1296 IF R&<7 PRINTTAB(X%(Z%) ,Y%$(Z%) )SP 
$:RB=24:Y% (Z$) =R$: GOTO] 338 

1300 IF R&>24 PRINTTAB(X%(Z%) , Y$(Z%))S 
P$:RB=7:Y% (Z3) =R$: GOTO] 330 

1318 PRINTTAB (X% (2%) ,Y%(Z%) ) SPS; 

1328 Y%(Z%) =Y% (ZS) +1Y3 (ZB) 

1338 X%(Z%) =X% (ZS) + 1X3 (ZS) 

1340 PRINTTAB (X%(Z%) ,Y%(Z%) ) ;CHRS (254) ; 
1358 NEXT 

1360 P&=! ( (K3*40*8) +44+65800+ (J3*8) ) 
1370 IF P%=A% BBBS=TRUE: PROClosealife 
1386 ENDPROC 

1398: 

1408 DEFPROCdispastros 

1418 FOR II%=1 TO AT%$:PRINTTAB(X$% (II) 
7Y%(II%) ) ;CHRS (254) ; sNEXT: ENDPROC 


1426: 

1438 DEFPROCupwego 

1446 xX3=0 

1456 IF INKEY(-98) X%=-1 

1466 IF INKEY(-67) X%=1 

1476 IF INKEY(-74) PROCwaitabit 

14886 IF AN%=TRUE AN%=FALSE:ENDPROC 

1498 PROClessenfuelbyone :J$=J$+X% 

1500 IF BBB%=TRUE THEN ENDPROC 

1510 IF J8<@ J%=0:X8=6 

1526 IF J%>39 J$=39:X%=0 

1538 IF K%<6 DOCK=5:ENDPROC 

1548 IF K%<9 SHIPS=ENTERS: PRINTTAB (L3, 
M$+2) ;SPC(7) 

1558 K%=K%-1 

1566 PRINTTAB (J%$-X%,K%+1) SPS; 

1576 P%=! ( (K3*40*8) +4+&5800+ (J3*8) ) 

15886 PRINTTAB(J%,K%) ;CHRS (255) ; 

1598 IF P%=@ ENDPROC 

1688 PROClosealife:BBB%=TRUE: ENDPROC 

1619: 

1620 DEFPROChavewedocked 

1636 PRINTTAB(L% ,M%+2) SPC6 

1646 IF J%<L$+2 OR J$>L$+4 YES=FALSE E 
LSE YES=TRUE 

1650 IF YES=FALSE J%=J$-X%:PROCLoseali 
fe: BBB%=TRUE: ENDPROC 

1660 PRINTTAB(L%,M%) ;MANSHIPS 

1676 SHIPS=Q$ 

1686 J$=L$+3:KS=M$+1 

1690 IF NS$=FALSE oldfuel%=F%:FS=F%+19 
G:IF FS>FI% THEN FS=FI% 

17086 IF NS%=FALSE PROCdispfuel (oldfuel 


171@ IF NS%=TRUE NS%$=FALSE: PROCnewscre 


1726 V%=FALSE: U%=6@ : DOCK=28 
1736 SHIPS=Q$ 
1748 ENDPROC 


1768 DEFPROCnewscreen 

1778 IN%=TRUE 

1788 D%=0 

1798 PROCclearastros 

1808 PRINTTAB(@,12)"Well done ... you 
cleared a screen !!" 

1818 PROCnoise: PROCnoise 

1828 PROCbonuscount 

1838 PRINTTAB(G,16)"You have a bonus of 
": PRINTTAB (20,16) ;B%;:PRINT" points !" 
1848 PRINTTAB (21,31) "00"; 

1858 GOTO45¢ 

1868 PROCaddbonus 

1870 ATS=ATS+5 

1886 IF AT$ MOD 2=1 ATS=AT$+5 

1890 IF AT%>4G AT%=46 

1968 IF AT$>9 BG%=G0:E%=ATS DIV 2 

1918 PROCsetastros 

1928 PROCclearastros 

1938 PROCdispastros 
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1948 LLS=LL3+1 

1950 IF LL3=3 NL%=NL$+1 : PRINTTAB (12-LE 
N(STRS (NL) ) , 1) NLS: PROCnoise 

1968 SOUND1,-15,150,26 

1978 PRINTTAB (39-LEN(STRS$(LL$) ) ,1) ;LL% 
1980 I$=I%+3000:BS=1$:TIME=0 

1999 FIt=FIS+100 

2000 oldfuelS=F%:F%=FI% 

2018 PROCdispfuel (oldfuel%) 

2028 I%=1%+4000 

2036 BS=I$ 

2048 D%=G 

2658 ENDPROC 

2069: 

2078 DEFPROCclearastros:VDU 28,0,24,39 
,7:CLS:VDU 28,6,31,39,@:ENDPROC 

2080: 

2698 DEFPROCdockingssofar 

2160 PRINTTAB (39-LEN (STRS (TD$) ) ,31) ;TD 
7: PRINTTAB (22, 31) ;D%; : ENDPROC 

2118: 

2128 DEFPROCmoveman 

2138 X%=6 

2140 IF INKEY(-98) X$=-1 

2150 IF INKEY(-67) X%=1 

216@ IF INKEY(-74) PROCwaitabit 

2178 IF AN$=TRUE AN%=FALSE: ENDPROC 
2180 J%=J$+X%: PROCLessenfuelbyone 

2198 IF BBB%=TRUE THEN ENDPROC 

2266 IF J%<@ J%=0:Xt=0 

2210 IF J%>39 J%=39:X3=G 

2226 K$=K%+1 

2230 PRINTTAB (J%-X%,K%3-1) SPS; 

2240 P=! ( (K$*4G*8) +4+&5800+ (J$*8) ) 
2250 PRINTTAB(J%$,K%) ;CHRS (255) ; 

2260 IF P%=@ ENDPROC 

2276 IF P%=A% OR P$=WS PROClosealife:B 
BB%=TRUE: ENDPROC 

2280 IF PS=Y$ OR P%=¥1% FLAG]$=2+ (PS=Y¥ 
%) : PROCloseal i fe: BBB$=TRUE: ENDPROC 

2298 PROCblock 

2306 U%=1 

2316 ENDPROC 

2326: 

2336 DEFPROCblock 

2340 IF J%<13 QW%=6 

2350 IF J%<26 AND J%>12 QWS=17 

2366 IF J%<39 AND J%>25 QWS=26 

2376 PRINTTAB (J%,K%-1) ;CHRS$ (255) 

2388 PRINTTAB(J%,K%) ;CHRS234; 

2398 IF K%=28 SC%=1906 ELSE IF K%=29 SC 
$=266 ELSE SC%=58 

2468 D%=D$+1 

2418 IF D%=7 NS$=TRUE 

2420 TD$=TD$+1 

2438 PROCdockingssofar 

2449 PROCnoise 

2458 S$=S%+SC%: PROCscore 

2460 K%=K$-1 

2478 ENDPROC 


2486: 

2498 DEFPROClosealife 

2508 SHIPS=Q$ 

2518 NLS=NL$-1 

2520 PRINTTAB(12-LEN(STRS$(NL$) ) ,1) ;NLS 
2538 PRINTTAB(J%,K%) ;CHRS242 

2548 PROCcrash 

2550 PRINTTAB(J%,K%) SPS 

2560 IF FLAG1$ THEN PRINTTAB(J%,K%) ;CH 
RS$ (231+FLAG1$) ; :FLAG] $=FALSE 

2576 IF NL%=@ PROCfinish:IF ZS<>"Y" E 
ND 

2588 V%=FALSE: U%=@ : DOCK=28 

2596 PRINTTAB(G@,3@) ;SEAIS$; 

2600 J=L$+3:K3=M$+2 

2610 *FX15,@ 

2620 IF NS%=FALSE ENDPROC 

2638 PROCnewscreen:DOCKS=@: NS$=FALSE: E 
NDPROC 

2648: 

2658 DEFPROCfinish 

2668 VDU28,0,31,39,3:CLS:*FX15,0 

2676 PRINTTAB(9,12)"G AME OVE R" 
2688 PRINTTAB(@,25)"Do you want to pla 
y again (Y/N) ":VDU28,@,31,39,0 

2698 IF S%>H% PRINTTAB(@,17)"You got t 
he high-score : well done!!":H%=S$: !&8@ 
=H% 

2708 S%=-1:ZS=GETS:IF ZS<>"N" RUN 

2716 *FX4 

2726 VDU22,6:*FX11,40 

2738 ENDPROC 

2748: 

2758 DEFPROCbonuscount 

2768 BS=I$-TIME:B$=B% DIV 10:IF BS<@ B 
%=@:ENDPROC ELSE ENDPROC 

2778: 

2788 DEFPROCaddbonus :S%=S$+B%:FOR II$= 
S$-B% TO S% STEP 18 

2796 PRINTTAB (14-LEN(STRS(II%) ) ,@) ;II% 
: SOUND@,-15,3,1:NEXT 

28080 PRINTTAB (14-LEN(STRS$(S%) ) ,@) ;S$:P 
ROCnoise: ENDPROC 

2818: 

2820 DEFPROClessenfuelbyone 

2830 F%=F$-1 

2840 IF F%=-1 FS=FI%:PROClosealife:PRO 
Cdispfuel (18) :BBB%=TRUE 

2850 PRINTTAB (21,1) "8006" 

2866 PRINTTAB(25-LEN (STRS(F%) ) ,1) ;F%; 
2878 ENDPROC 

2886: 

2896 DEFPROCdispfuel (oldfuel$) : PRINTTA 
B(21,1) "6000" 

2968 FOR II%=oldfuel% TO F% STEP 1@0:PR 
INTTAB (25-LEN (STRS(II$) ) ,1) ;I1I$ 

2918 SOUNDG@G,-15,3,3:NEXT: ENDPROC 

2926: 

2930 DEFPROCwaitabit 

2948 IF F%<11 ANS$=FALSE: ENDPROC 
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2958 FS=F%-18 
2960 PRINTTAB(21,1) "8000" 

2976 PRINTTAB (25-LEN (STRS$(F%)) ,1) ;F% 
2988 ANS=TRUE 

2998 ENDPROC 

3000: 

3010 DEFPROCscore:FOR II%=S%-SC% TO S% 
STEP 2 

302@ PRINTTAB(14-LEN(STRS$(II%)) ,@) ;1I% 
: SOUNDG ,-15, 3, 1:NEXT: ENDPROC 

3036: 

3048 DEFPROCnoise 

3058 FOR II$=1 TO 6 

3868 SOUND1,-15,5,3 

3676 SOUND1,-15,26,3 

3080 NEXT 

3098 *FX15,1 

3100 TIME =@:REPEAT UNTIL TIME>9@ 

3118 ENDPROC 

3120: 

3138 DEFPROCcrash 

3146 FOR II%=-15 TO @ 

3158 SOUND@, I11%,3+RND(3) ,5 

3160 NEXT 

3176 ENDPROC 

3186: 

3198 DEFPROCinst 

3208 PRINTTAB(12)"LUNAR ESCAPE"'' 

3216 PRINT''" Guide your shuttle down 
through the" 

3220 PRINT" asteroids to the launch pa 
ds below." 

3236 PRINT" Collect the waiting people 
and fly" 

3246 PRINT" back to the mother ship."' 

3258 PRINT" Your shuttle has only a li 
mited amount" 

3260 PRINT" of fuel, so watch for it r 
unning out."'' 

3278 PRINTSPC11;"Z 

3286 PRINTSPC11;"X 


- move LEFT" 
- move RIGHT" 


3298 PRINTSPC11;"RETURN - SLOW DOWN"' 
3308 PRINTSPC11;"SPACE - RELEASE FROM" 
3318 PRINTSPC20;"MOTHER SHIP" 

3328 PRINTSPC20;"OR TAKE OFF" 

3338 VDU28,0,24,39,8 

3348 ENDPROC 

3350: 

3368 DEFPROCsetchars 

3376 VDU23,1,0;0;0;0; 

3388 VDU23,255,24,60,189,255,102,66,66 
7129 

3398 VDU23,232,96,232,232,232,250,256, 
254,255 

3408 VDU23,233,6,23,23,23,95,95,127,255 
3416 VDU23,234,255,255, 255, 255,255,255 
7255,255 

3426 VDU23,238,255,255,6,0,0,0,0,0 
3438 VDU23,242,153,98,68,231,231,60,96 
7153 

3440 VDU23,254,78,255,255,252,124,127, 
127,58 

3458 VDU23,253,144,146,210,218,223,255 
1255,0 

3468 VDU23,243,1,3,3,777,373,71 

347@ VDU23,244,128,192,192,224,224,192 
7,192,128 

3488 VDU23,245,61,255,255,195,129,8,8,0 
3496 VDU23,247,8,3,7,31,63,126,124,248 
3506 VDU23,248,129,126,0,0,0,0,9,0 
3518 VDU23,249,0,192,224,248,252,126,6 
2,31 

3528 ENDPROC 

3536: 

3548 ON ERROR OFF 

3550 IF ERR=17 THEN PROCfinish ELSE RE 
PORT: PRINT" at line ";ERL 

3566 *FX4 

3576 *FX12 

3588 VDU23;11,255;0;0;0 

3598 END 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


SPACE INVADER PROMPT 


The VDU 23 call can be used very amusingly to re-define the prompt symbol '>' to 


be a space invader. Try the following: 


VDU23,62,60,126,219,255,126,60,36,66 <return> 


PREVENTING THE SCREEN FROM SCROLLING - P.Davies 


The screen will automatically scroll if a character is printed in the bottom 
right corner of the screen. This will have the effect of deleting any text on the 
top line. An easy way to prevent this is to type in ?&D@=2 <return>. This sets the 
second bit of the location &D@, which controls the scrolling of the screen. If this 
bit is set, then the scrolling facility is inhibited. After printing a character in 
this position, the screen must be returned to its former state by using ?&D0=0 


<return>. 
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DANCING LINES 


by David A. Fell 


This intriguing program not only produces an interesting graphics 
display, but also shows how a sequence of random numbers generated 


in Basic is not really random at all! 


This short program produces an 
attractive screen display by 
simulating the bouncing of two points 
around the screen at random, with a 
randomly coloured line drawn between 
the two. An apparently random sequence 
is built up on the screen, and then 
erased in the same order as it was 
created. Once the screen has ‘emptied', 
the program repeats, producing a 
different sequence for each screen. 


RANDOM _NUMBERS 

The two key facts that enable the 
program to precisely erase the lines, 
without any co-ordinates being stored, 
are the Exclusive-OR plotting technique 
used (see the User Guide page 97), and 
the repeatability of Basic's random 
number generator. This is not a true 
random number generator, but produces 
what are termed pseudo-random numbers. 
This means that the numbers that it 
produces may appear random, and indeed 
will satisfy most tests for randomness, 
but are actually produced by a fixed 
set of calculations which can be made 
to repeat. Whenever a ‘seed', or 
Starting point, for the Electron's 
random number generator is entered, it 
is possible to identically regenerate 
a particular series of ‘'‘random' 
numbers. 


To seed the random number generator, 
you use the form: 

X=RND (N) 
where N is a negative number. As an 
example, try this: 

PRINT RND(-1986) 
When 'seeding' the Electron's random 
number generator, the value that RND 
returns is the same as was passed to 
it, in this case -18@. Once a negative 
value has been passed, the generator is 
"seeded', and thus now predictable. 
Moreover, if you now type: 

PRINT RND(1@) 
for example, immediately after seeding 
the generator as above you will always 
get a 9 printed, which is always the 


first value to be returned in the 
particular sequence chosen. 


PROGRAM NOTES 

In the program, line 15@ creates a 
random seed, and this is used at lines 
168 and 188 to start the generator off 
Producing the same sequence of numbers. 
Lines 174 and 198 call the procedure to 
produce a screen of lines, and both the 
calling and seeding sections are 
contained within a REPEAT ... UNTIL 
loop that cycles endlessly, or until 
Escape is pressed. 


At the start of the program, line 
126 turns off the cursor, as this only 
serves as a distraction in graphical 
displays. Line 130 effectively turns 
off the flashing colours, which are 
inevitably going to be generated as a 
result of both the usage of 
Exclusive-OR plotting and the random 
colour range that is selected, and 
which would appear unattractive if left 
flashing. This is achieved by setting 
the '‘'mark' period to zero, and thus 
leaving all of the flashing colours 
permanently in only one of their two 
possible colours. 


ELASHING COLOURS 

All the flashing colours show each 
of two colours alternately on the 
screen. The time for which each of the 
two colours is displayed can be altered 
by using the *FX9 call to set the time 


for the first colour and *FX1@ to set 
the time for the second (see page 286 
of the User Guide). Setting either time 
to zero (but not both) results in the 
other colour being permanently 
displayed. 


The display itself is produced by 
the procedure PROCpicture. Lines 1816 
to 1886 generate random starting points 
and random increments for the two ends 
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of the line. The increments are fixed 128 VDU23,1,0;0;0;G; 
so that they will start the two ends 138 *FX9 
moving off in opposing directions. The 148 REPEAT 
FOR-NEXT loop starting at line 1090 15@ SEED%=ABS (RND) 
will determine how many lines will be 16@ A%=RND (-SEED$) 
drawn for each pattern, and adjusting 178 PROCpicture 
the value of 500 to, say, 106 will give 186 A%=RND(-SEED$) 
a shorter pattern. 196 PROCpicture 
206 UNTIL FALSE 
The procedure uses the Exclusive-OR 210 END 
plotting option of the GCOL instruction 226 : 
(selected at line 1108), and the random 23@ ON ERROR OFF: MODE 6 
colour. Exclusive-OR plotting has the 246 IF ERR<>17 THEN REPORT:PRINT" at 
line ";ERL 
258 END 
266 : 


1606 DEF PROCpicture 
161@ X1%=RND(1279) 
1620 Y1%=RND (1023) 
1638 X2%=RND (1279) 
1848 Y2%=RND (1023) 
165@ XI1%=RND (4) *5 
1666 YI1%=RND(4)*5 
1676 XI2%=-RND (4) *5 
1886 YI2%=-RND (4) *5 
1698 FORI%=GTO500 
1166 GCOL3,RND(16)-1 
1116 MOVE X1%,Y1% 
1126 DRAW X2%,Y2% 


unusual property in that, if any 
graphics with the same colour and 
co-ordinates are plotted an even number 
of times, then they '‘'cancel' out, 
leaving whatever happened to be on the 
screen before. As we start of with a 
blank screen, and all plotting is done 
twice, at the same co-ordinates and in 
the same colour sequence, the net 
result is that there is nothing left on 
the screen by the end of the sequence. 


The overall effect, therefore, is of 
a completely random pattern in shape 
and in colour, and yet one which can be 
precisely repeated, and hence erased 


from the screen. 1130 IF X1%+XI1$>1279 XI1%$=-RND(4) *5 
1140 IF X1%$+X1I1%<@ XI1%$=RND(4) *5 

Lines 1898 to 1258 are concerned 115@ IF Y1%+YI1$>1@23 YI1%$=-RND(4)*5 
with the mechanics of bouncing a point 1160 IF Y1$+YI1$<@ YI1$=RND(4) *5 

around an enclosed rectangle (in this 1176 IF X2%$+X1I2$>1279 X1I2$=—-RND(4) *5 
case the screen). 1180 IF X2%+XI2%<@ XI2%$=RND(4) *5 


1190 IF Y2$+¥I2%$>1623 YI2%=—-RND (4) *5 
1200 IF Y2$+YI2%<@ YI2%=RND (4) *5 
1216 X1$=X1$+X11% 

1220 Y1S=Y1S+Y11% 

1236 X2S=X2%+X123 

1246 Y2%=Y2%+Y12% 


1@ REM Program Dancing Lines 

20 REM Author David A. Fell 

30 REM Version E1.2 

4@ REM ELBUG MAY 1984 

50 REM Program subject to Copyright. 


68 : 
1258 NEXT 
108 ON ERROR GOTO 230 is ; 
118 MODE 2 126@ ENDPROC & 
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USING BBC MICRO PROGRAMS ON AN ELECTRON (Part 3) 
by David Graham 


As I suggested in the first article in this series, one of the major 
differences between the BBC Micro and the Electron is its speed of 
Operation. The Electron runs at up to three times slower than the 
Beeb. This can cause serious problems when adapting BBC Micro 
software for the Electron - as anyone at Acornsoft, Program Power or 
Beebugsoft will tell you! But there are ways around the problem, and 
this month, in the last article of this series, I want to look at 
how to speed up Basic programs on the Electron. 


MODE DEPENDENCE 

The most striking thing about the 
speed of the Electron when compared to 
the BBC Micro, is that the Elk's speed, 
unlike that of the Beeb, is Mode 
dependent. If you run the program "Time 
Test" you will get some idea of this. 
The program simply prints out the time 
taken by the Eleciron to calculate the 
sine of an angle two hundred times 
over. Set your Electron to Mode 6, and 
run it. Note the result printed on the 
screen, then run it in Mode 2. You will 
see that it takes more than twice as 
long. The exact relative speeds of the 
different Modes depends on the program 
that you are running - but the speed 
difference between Modes 9, 1 or 2 and 
4, 5 or 6 will always be significant. 


1@ REM TIME TEST 
20 TIME=6 
30 FOR A%=1 TO 206 


40 X=SIN(12) 
5@ NEXT 
68 PRINT TIME 


From this we can easily establish 
certain rules of thumb. These are as 
follows: 


1. If speed is important ina 
program, keep to as high a_ screen 
Mode as possible. 


2. Perform as many of the time 
critical parts of your program 
while in a high Mode. For example, 
if you are generating a maze for a 
game in Mode 2, make sure that you 
are in Mode 6 while you calculate 
the maze. Only switch to Mode 2 at 
the last moment. 


CHANGING MODE 

In most situations where a time 
critical BBC micro program uses Modes 
G, 1 or 2 (the slowest on the 
Electron), you can change these to Mode 
4 or 5 = see table 1. There are 
several provisos here. If you replace 
Mode @ by Mode 4 you will get 40 rather 
than 8@ column text, and you will also 
lose resolution. Replacing Mode 1 with 
Mode 4, or Mode 2 with Mode 5 you will 
not lose resolution, but the number of 
available colours will be reduced from 
4 to 2, or from 16 to 4 respectively. 


Chrs | Cols} Resol- | Replace 
ution | with Mode 
@ 86 2 


640x256 
320x256 
1698x256 


326x256 
168x256 


One of the most commonly used Modes 
for games on the BBC micro - and where 
consequently speed is of a premium - is 


Mode 2. Fortunately it is usually 
possible to replace this with Mode 5. 
Character size and resolution § are 
identical in both Modes - and the only 
difference is the loss of colours. Mode 
5 leaves you with only four, including 
the background. Fortunately four 
colours is usually just about enough to 
get by with. We have adopted this 
technique for example with the game 
Hedgehog (ELBUG Vol. 1 No. 1). This was 
originally published in BEEBUG as a 
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Mode 2 BBC micro game. The way to 
approach the problem is simply to look 
for all Mode statements in your program 
- the Utility Editor published in ELBUG 
No. 5 might be helpful here. Then just 
change all occurrences of Mode 2 for 5, 
and Modes @ and 1 for 4. There is no 
real need to change Mode 7 to Mode 6 
since the Electron gets into Mode 6 
whenever it encounters the instruction 
"MODE 7". 


Now run the program and see what 
happens. You will almost certainly need 
to alter some of the new colours 
produced. One reason for this is’ that 
some things printed on the screen will 
Probably have become invisible. What 
has really happened is that they have 
been printed in the same colour as_ the 
background. The way to sort out the 
colours is to find every COLOUR or GCOL 
statement - again the Utility Editor 
could be helpful here - and ensure that 
the colour number called is in the 
range @ to 3. You will have to choose 
the numbers carefully so that objects 
show up as well as possible. 


Remember though, that you are not 
stuck with the four colours black, 
yellow, red, and white. Each of these 
may be changed for any of the 16 
available colours (but you can still 
only have a total of four different 
colours on the screen at any one time). 
The way to change colours is by using 
the VDU 19 call. See the User Guide 
page 1067. Suppose that you have 
converted a Mode 2 screen to Mode 5, 
and have assigned colours @, 1, 2 and 3 
in such a way as to keep all parts of 
the screen distinguished, but wish to 
change all the red objects to cyan. 
Just insert the statement VDU 
19,1,6,6,6,0 after the last Mode change 
- and so on. 


OTHER STRATEGIES 

I want to look now at a series of 
further strategies for increasing the 
speed of programs adapted from the Beeb 
- although like those treated above, 
the principles involved will in general 
be equally effective if you are 
originating the code yourself - and 
wish to make your program as 'fast' as 
possible. Some of the principles 
treated here are touched upon in 
appendix 'E' of the User Guide which 
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programs'. 


TIME DELAYS 

One of the most obvious things to 
look for in a Beeb program that you are 
trying to speed up are time delays. The 
most likely forms of delay are as 
follows: 


For A=1 to 108:NEXT 

or 

TIME=0:REPEAT UNTIL TIME = 290 
or 

X=INKEY (20) 


The first two are very obviously 
waiting loops, and can be removed to 
test their effect. You have to be more 
careful with the third type, because as 
well as performing a waiting function 
it also assigns a value to X. The 
easiest way to test its effect is to 
remove the (28) or whatever, amd see 
what effect this has on the program. 


INTEGER VARIABLES 


The next thing to do is to replace 
as many variables as possible by 
integer variables - and where possible 
single letter integers. For example, 
suppose your program has the following 
variables: 


INVADER$ 
LOOPCOUNT 
LASERX 
LASERY 
BULLETS 
SCORE 
TEXTS 


INVADERS and TEXT$ are string variables 
(the $ tells you this), and should not 
be changed. BULLETS is an _ integer 
variable (the $ tells you this). You 
could change this for B%, but there 
will not be much saving here. Bigger 
savings are achieved when you change 
any of the others to integer variables. 
You could just call the A%, B%, C% etc. 
and change each occurrence throughout 
the program, but unfortunately you 
cannot always substitute integers for 
so-called 'real' variables. 


The problem with integers is that 
they can only take a certain range of 
values: they can never represent 
decimal numbers. But looking at the 
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reals that we have - ie. LOOPCOUNT, 
LASERX, LASERY and SCORE - they may 
well all be used as_ integers. Loop 
counts are often integers - you can't 
go round a loop 1.5 times - but do 
check that the step size is also 
integer or the program will not work 
correctly when the loop count is 
converted to integer. The same goes for 
the position of the laser base ina 
game, or the score. In this case you 
could replace all occurrences of 
LOOPCOUNT by say C%, of LASERX by X$%, 
of LASERY by Y% and of SCORE by S$. 
This is likely to improve = speed 
considerably. - 


If possible you should also replace 
all normal division signs "/" by "DIV", 
the much quicker integer division 
function - but again you will lose 
decimal precision. The answer to 5 DIV 
4 is 1, not 1.25. Very often in games, 
where speed is of the essence, the 
extra precision is not necessary. 


REMS AND PROGRAM LINES 

In Acorn's advice on making programs 
run faster they suggest that you remove 
all REM statements, and reduce the 
number of program lines. For example 
the four lines below: 


10@ REM CALCULATION SECTION 
118 X8=100 
126 Y%=50 
136 IF Z$*SINX>4@ THEN P%=50 


could be rewritten as: 


106 X%=100:Y%=5G: 
IFZ%*S INX>40THENP%=59 


and so on. The speed gained here will 
not be great however, though every 
little helps and readability will be 
reduced. 


The User Guide also suggests that 
you use REPEAT....UNTIL loops. REPEAT 
loops are certainly faster than 
unstructured GOTO loops; but what the 
Guide does not say is that FOR...NEXT 
loops are the fastest of all - amd by a 
considerable margin. So try to use 
these where at all possible - am as 
the Guide does mention, leave off any 
possible variable in the NEXT 
statement. Thus use NEXT rather than 
say NEXT X - the X is quite redundant, 
and slows execution. 


By using a combination of these 
techniques you will be able to 
considerably enhance the speed of 
Electron programs; and if you are 
converting programs from the Beeb you 
will find that most can be converted 
satisfactorily if these various points 
are born in mind. There-will always be 
some that cannot be satisfactorily 
converted from a speed point of view 
however, and there is a certain degree 
of skill in spotting which these are 
before you have invested too much time 
and effort on them. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


SPEED IMPROVEMENT WITH LOGICAL VALUES - R.Jefferyes 

Internally TRUE and FALSE are held as integers, represented by -1 and @ 
respectively. So, for example, if you write 

crash=TRUE 
the TRUE will be converted to floating point form when it is stored. The statement 
will execute faster if you use an integer variable like this: 

crash$=TRUE BB 


'NEXT' EFFECT WITH LISTO7 - M.Robinson 

You may know that FOR..NEXT loops can be terminated with commas e.g. NEXT,, 
(which has the same effect as NEXT:NEXT:NEXT). However these commas are not 
recognised by the LISTO7 option, used to format listings by indenting by two spaces 
for each nested loop. Loops terminated by a comma will not be indented by two extra 
spaces for each NEXT that has been replaced by a comma. 

This also applies if the controlling variable of the loop is included e.g. NEXT 


A,B,C. The actual keyword 'NEXT' must be included to cancel the indentation e.g. 
NEXT: NEXT: NEXT. 
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FOUR IN A ROW 
by J. Webb 


This is an excellent and colourful implementation of the game 
popularly known as ‘Connect Four'. In this game of strategy, you try 


to arrange four counters in a 


line in any direction, while 


preventing your opponent from doing the same. 


This is a game for one or two players, with the option of choosing the computer 
as the opponent. The two players take turns deciding in which column to place a 
counter. As in the real game, counters always end up in the lowest empty position in 
any column chosen. The object of the game is to arrange a row of four of your own 
counters, either horizontally, vertically or diagonally, on 
the 6 x 7 position board, while trying to prevent your 
Opponent from doing the same. The winner is the first 


person to get four counters in a row. 


The program displays instructions for playing the game 
on the screen. You can choose whether to play against the computer or another person 
before the game starts. You then simply select which column to place your counter in 
by typing in the column number followed by Return. 


The usual red and yellow colours are 
used in the program for the counters, 
but the yellow can be a little 
difficult to see against the 
surrounding white frame in certain 
circumstances. To change it to magenta 
(colour 5), for example, add the 
following line: 


245 VDU19,2,5,9,9,9 


You may also like to 
try alternative 
colours. 


You will find that the computer 
plays a reasonably strong game and 
generally speaking, it will win unless 

you can set 
a trap for 
it by 
gradually 
building 
up two 
interrelated rows of four counters. 


1@ REM Program FOUR IN A ROW 

28 REM Version E1.0 

38 REM Author J.Webb 

49 REM ELBUG May 1984 

5@ REM Program subject to Copyright 
60: 

188 MODE 1 

11@ ON ERROR GOTO 340 


126 DIMposition’ (6,7) : PROCcircles 
136 ENVELOPE] ,6,0,9,9,9,9,0,121, 
-10,-5,-2,126,128 
148 ENVELOPE2,6,4,-8,-4,16, 16,32, 
64,64,-64,-64,128,8 
158 PROCtitles 
168 got=1:wint=G: turnt=d:compt=3 
176 FORrow%=1T06 
186 FORco1%=1T07 
198 position$ (row$,col%) =G 
206 NEXT: NEXT 
218 CLS 
228 PROCsetupgame 
238 REPEAT 
248 PROCturn 
258 IF got=@ AND comp%=@ PROCcolour 
268 IF go$=@ AND comp%=1 PROCcomputer 
: PROCcolour 
278 IF got=1 PROCcolour 
288 PRINTTAB(@,8)"Last go"'"col: ";co 
lumns 
298 SOUND&11,1,86,111:screen$=14347+4 
8*column$: REPEAT: screen%=screen$+1 920:U 
NTIL?screen>6 
308 missweigh%=@: PROCweighandcheck :mi 
ssweigh%=1 
319 UNTILwin$=990Rturn$=42: PROCwin:GO 
TO16G 
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328 END 

338: 

348 ON ERROR OFF:MODE 6 

35@ IF ERR<>17 THEN REPORT:PRINT" at 
line ";ERL 

368 END 

1666 DEFPROCsetupgame 

1010 REM This draws the board, and est 
ablishes who is playing. 

1628 VDU19,3,8;G; :MOVE285,895:DRAW285, 
205: DRAW1 026 , 205: DRAW1 020,895: DRAW285,8 
95 


counters 
in any 


The object is to get Feyr 
ef your own colour in a line 
direction 
against the 


You_can choose to pla 


v 
computer or against another player. the 
ine always plays yellow 


mac 


Press the space bar to play 


1838 MOVE30@,88@:MOVE3@@, 220: PLOT85, 10 
65,880: PLOT85,1005,220:VDU29 

1646 VDU19,0,4,9,0,9 

1650 FORR=1T06:FORC=1TO7: PRINTTAB (7+3* 
C,2+3*R) ;CS; : NEXT: NEXT 

1668 VDU5:MOVE355,260:GCOLG,@: PRINT" 1 

23 4 5 6 7":VDU4 

1670 VDU23,1,8;9;0;G; 

1688 REPEAT: PROCclear : PRINTTAB(11,27)" 
Do you want to play": PRINTTAB(1@,29) "th 
e computer?(Y or N) ":ans$=GETS$:UNTILan 
s$="Y"ORansS="N" 

1698 IF ansS="N"THEN ENDPROC 

1106 REPEAT: PROCclear :comp%$=1 : PRINTTAB 
(12,27)"Do you want to go":PRINTTAB(13, 
29)"first?(Y or N) "“sansS=GETS$:UNTILans 
S="Y"ORansS="N" 

1110 IF ansS="Y" go%=d 

112@ ENDPROC 

1138 : 

1148 DEFPROCcolour 

1158 REM This colours display at next 
available position 

1168 col$=column$’: row$=@: REPEAT: row$=r 
ow$+1 : UNTILposition’ (row ,column$) =@ 

1176 position$ (row$,column$) =1 

1188 COLOUR (138-go%) : PRINTTAB (7+3*colu 
mn% , 23-3* row%) ;CS:COLOUR1 28 

1198 ENDPROC 


1286 : 

1218 DEFPROCcircles:REM Draws one circ 
le 

1228 VDU23,224,255,255,255, 252,240,224 
,224,192:VDU23,227,192,128,128,128,128, 
128,128,192:VDU23,229,3,1,1,1,1,1,1,3:V 
DU23,226,255,255,255,63,31,15,7,3 

1238 VDU23,232,3,7,15,31,63,255,255,25 
5:VDU23,228,9,0,9,0,0,8,6,8:VDU23,225,2 
55,255,9,9,0,0,6,0:VDU23,231,0,9,9,9,G, 
8,255,255 

1248 VDU23,236,192,224,224, 246,252,255 
1255,255 

1258 C1$=CHR$224+CHR$225+CHRS$226 :C2$=C 
HR$227+CHRS228+CHR$229 :C3$=CHR$238+CHRS 
231+CHR$232 :COLOUR3:COLOUR1 27 

1268 CS$=C1$+CHRS$8+CHRS$8+CHRS$8+CHRS19+C 
2S+CHRS8+CHRS$8+CHRS8+CHRS$ 1 9+C3S 

1278 ENDPROC 

1288 : 

1296 DEFPROCtitles:VDU23,1,0;0;0;0; 

1306 VDU28,8,2,39,8:COLOUR 129:CLS:COL 
OUR 3 

131@ PRINTTAB(11,1)"FOUR IN A ROW" 

1326 VDU26:COLOUR 128:COLOUR 6 

1338 PRINTTAB(2,5)"The object is to ge 
t four counters"'"of your own colour in 

a line in any"'"direction." 

1348 PRINT'TAB(2)"You can choose to 
play against the":PRINT"computer or ag 
ainst another player. The": PRINT"machin 
e always plays yellow." 

1358 PRINTTAB(6,19)"Press the space ba 
r to play." 

1368 REPEAT UNTIL GET=32 

1378 ENDPROC 

1386 : 


Red winst 


Press space ber to play again. 


1396 DEFPROCwin:PROCclear : SOUND&11,2,1 
68,121 
1498 REM This responds to a win or draw 
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1419 IF turn$=42 AND win%<>99 PRINTTAB 
(12,27)"Honourable draw!":GOTO144@ 
1420 IF got=@ PRINTTAB(14,27) "Yellow w 
ins!"ELSE PRINTTAB(16,27) "Red wins!" 
1430 *FX15,1 

1449 PRINTTAB(5,3@)"Press space bar to 
play again.":IF GETS="""THEN]45@ELSECL 
S: END 

1458 ENDPROC 

1466 : 

1476 DEFPROCclear : PRINTTAB(@,27) ;SPC(1 


1488 ENDPROC 

1496 : 

1588 DEFPROCturn 

151@ REM This displays whose turn next 
, and accepts response 

1526 turn$=turn3+1 

1538 IF comp%=1AND go$=!THEN1619 

1548 REPEAT: PROCclear:IF go%=@6PRINTTAB 
(8,27)"Reds turn - "; 

1556 IF go%=1PRINTTAB(6,27) "Yellows tu 
er. = We 

1566 *FX15,6 

157@ PRINT"which column?":column3=VALG 
ET$: UNTILcolumn%>@ANDcolumn%<8 

1588 IFposition’ (6,column’) >@THEN154¢ 
1598 IF go%=1 go%=8 ELSE go%=1 

1686 ENDPROC 

1618 PROCclear : PRINTTAB (16,27) "Computi 
ng" 

1628 gos=6 

1638 ENDPROC 

1646 : 

1658 DEFPROCcomputer 

1668 REMThis must calculate a value fo 
xr column’ 

1676 flagt=0:IF turns<4 column%=4: TIME 
=@: REPEATUNTILTIME>1 68: ENDPROC 

1688 dontgol $=4:dontgo2$=8:dontgo3%3=6: 
dontgo4%=8 

1698 swap$=8:column1 %=9:column2%=8 
1788 FORco1$=1TO7 

1718 IFposition$ (6,col%) >@THEN1 790 
1726 IF col%=dontgol% OR col%=dontgo2% 
OR col%=dontgo3% OR col%=dontgo4% THEN 
1798 

1738 screen=14347+48*col$:REPEAT: scre 
ent=screen$+1 929: UNTIL? (screen$+1929) >d 
ORscreen$>26283 

1748 IFscreen%>26203screent=25867+48*c 
o1% 

1758 PROCweighandcheck 

1768 IFweight$>swap$THENcolumn$=col% 
1770 IFweight%>swap$THENswap%=weight$ 


1788 IFcheck%=3 col%=7 

1798 NEXT 

1886 IF column1%>@THENcolumn$=column1% 
: ENDPROC 

1818 IF column2%>@THENcolumn3=column2$ 
: ENDPROC 

1820 flagt=flag$+1 

1836 IF turn$<9 OR position%(5,column3 
)=1 THENENDPROC 

1846 screen$=14347+48*column$:col%=col 
umn% 

1856 REPEAT: screen$=screen$+1 929: UNTIL 
? (screen$+3849) >@ORscreen$>=22363 

1868 PROCweighandcheck 

1876 IF flagt>4 THENIF dontgol%>@ AND 
dontgol%<>dontgo3% AND dontgol%<>dontgo 
4% THENcolumn%=dontgol $: ENDPROC 

1886 IF flag%>4 AND dontgo2%>@ THENcol 
umn%=dontgo2% : ENDPROC 

1898 IF flag$>4THENcolumn%=dontgo3$%: EN 
DPROC 

1968 IF dontgol%=column% OR dontgo2%=c 
olumn% OR dontgo3%=column% OR dontgo4%= 
column% THEN169@ 

1919 ENDPROC 

1926 : 

1938 DEFPROCweighandcheck 

1948 REM This gives a weighting to eac 
h possible move selected in PROCcompute 
r, and also checks for a winning line a 
fter each turn. 

1958 weight3=0 

1968 FORA$=0TO3 

1978 B%=A$=GAND1ORA%>GAND38+A$ 

1980 FORC3=8TO3:check%=8 

1998 FORD$=8TO3 

2000 peek%=? (screent+B%*48* (D$-C$) ) 
2618 check%=peek$=24GANDcheck$+1ORpeek 
$=1 SANDcheck$-1 ORpeek%=GANDcheck% 

2026 NEXT 

2638 IFmissweight=@ THEN269¢ 

2646 weight$=weight3- (75+RND (38) ) * (che 
ck%=-2) - (15+RND(1@) ) * (check$=-1) - (15+RN 
D(1@) ) * (check%=1) - (75+RND (39) ) * (check3= 
2) 

2058 IF check%=3 THENcolumn] %=col%: IF 
dontgo1%=8 THENdontgol%=col% 

2066 IF check$=3 THENdontgo2%=col$% 
2070 IF check%=-3 THENcolumn2%=col$:IF 
dontgo3%=8 THENdontgo3$=col% 

2088 IF check$=-3 THENdontgo4%=col% 
2098 IF check$=4 OR check%=-4 win%=99 
2186 NEXT:NEXT 

2116 ENDPROC 
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ELBUG MAGAZINE CASSETTE 


To save wear and tear on fingers and brain, we offer, each month, a casette 
of the programs featured in the latest edition of ELBUG. The first program 
on each tape is a menu program, detailing the tape's contents, and allowing 
the selection of individual programs. The tapes are produced to a high 
technical standard by the process used for the BEEBUGSOFT range of titles. 


Magazine cassettes have been produced for each issue of ELBUG from Volume 1 
Number 1 onwards and are all available from stock, priced £3.08 each 
inclusive of VAT. See below for ordering information. 


This months cassette (Vol.1 No.6) includes: 

Hunt The Numbers Game, Invisible Alarm Clock, Selective Renumber Utility for 
Basic programs, ASTAAD2 (The complete extended version of the original CAD 
program), Graphics Example Programs (3), Lunar Escape Game, Dancing Lines 
(an interesting visual display), and Four In A Row Game. 


MAGAZINE CASSETTE - SPECIAL OFFER ON BACK ISSUES 
The first 6 ELBUG magazine cassettes (Vol 1 No 1 - Vol 1 No 6) are offered 
to UK members for the price of £15 inclusive of VAT and post. This 
represents a saving of £5 (including post) and is only offered to members 
of ELBUG who place orders before 3@th June 1984. 


MAGAZINE CASSETTE SUBSCRIPTION 


We are also able to offer ELBUG members subscription to the magazine 
cassette, this gives the added advantage of receiving the cassette at around 
the same time as the magazine each month. Subscriptions may either be for a 
period of 1 year or 6 months, however for an introductory period we are also 
offering a trial 3 months subscription. (NOTE Magazine cassettes are 
produced 1% times each year). 


If required, subscriptions may be backdated as far as Volume 1 Number 1, so 
when applying please write to the address below quoting your membership 
number and the issue from which you would like your subscription to start. 


AS A SPECIAL INTRODUCTORY OFFER, WE WILL ALLOW YOU TO CHOOSE ANY ONE OF THE 
FIRST 6 MAGAZINE CASSETTES ABSOLUTELY FREE, IF YOU SUBSCRIBE TO THE MAGAZINE 
CASSETTE FOR A PERIOD OF 1 YEAR, BEFORE JUNE 30th 1984. 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes £ 3.00 

P & P: Please add 5@p for the first and 3@p for each subsequent cassette. 
Overseas orders: Calculate the UK price including post, then deduct 15% VAT 
and add £1 per item. 


Magazine Cassette Pack (Vol 1 No 1 - Vol 1 No 6) UK £15.00 
Magazine Cassette Pack Overseas £19.00 


Magazine Cassette Subscription 

1 YEAR (1@ issues) £33.00 Incl..........O'SEAS £39.08 No VAT payable 
6 MONTHS( 5 issues) £17.06 Incl..........O'SEAS £20.08 No VAT payable 
3 MONTHS( 3 issues) £19.00 Incl..........O'SEAS £13.08 No VAT payable 


Please be sure to specify that you require subscription to the ELBUG 
magazine cassette, and enclose your membersip number with a cheque made 
payable to BEEBUGSOFT. 


Send to ELBUG Magazine Cassette, BEEBUGSOFT, PO Box 199, High Wycombe. 
[SS ee SS SS 
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BACK ISSUES AND SUBSCRIPTIONS 


BACK ISSUES (Members only) SUBSCRIPTIONS 


All back issues will be kept in print Send all applications for membership, 
(from November 1983). Send 9@p per amd subscription queries to the 
issue PLUS an AS SAE to the subscriptions address. 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members MEMBERSHIP COSTS: 
at this same price. This offer is for U.K. 
members only, so it is ESSENTIAL to £5.98 for 6 months (5 issues) 
quote your membership number with your £9.98 for 1 year (10 issues) 
order. Please note that the advertising Eire and Europe 
supplements are not supplied with back Membership £16 for one year. 
issues. Middle East £19 

Americas and Africa £21 
Subscription and Software Address Elsewhere £23 


Payments in Sterling preferred. 


ELBUG SOFTWARE (Members only) 


PO BOX 109 : 
dh ee This is available from the software 


Bucks address. 


MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 


Please send all contributions and : 

technical queries to the editorial Editorial Address 

address opposite. All contributions 

published in the magazine will be paid 

for at the rate of £25 per page. ELBUG 
PO Box 50 

We will also pay £16 for the best Hint St Albans 

or Tip that we publish, and £5 to the Herts 

next best. Please send all editorial 

material to the editorial address 

opposite. If you require a reply it is 

essential to quote your membership 

number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Production Editor: Phyllida Vanstone. 

Technical Assistants David Fell, Nigel Harris and Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to Sheridan Williams, and Adrian Calcraft for assistance with this 
issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 
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